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PREFACE 



THIS GUIDE IS A COMPILATION OF KEY CONCEPTS, CODING 
TECHNIQUES, IDIOMS, GUIDELINES, AND TRADE-OFFS IN APL 
PROGRAMMING. IT IS INTENDED FOR INTERMEDIATE AND ADVANCED APL 
PROGRAMMERS WHO ARE FAMILIAR WITH APL SYNTAX AND OPERATIONS AS 
FOUND IN THE APL LANGUAGE MANUALS AND SIMILAR PUBLICATIONS . ITS 
GOAL IS TO SHOW GOOD IMPLEMENTATIONS OF BASIC APL DATA 
PROCESSING OPERATIONS. 

THIS VOLUME COVERS VECTOR OPERATIONS TOPICS IN APL 
PROGRAMMING. IT IS DESIGNED TO BE A REFERENCE MANUAL. THE 
INFORMATION INCLUDED IS CATEGORIZED ACCORDING TO THE TYPE OF 
OPERATION PERFORMED AND THE DATA BEING PROCESSED. THE TABLE OF 
CONTENTS IS INTENDED TO SERVE AS THE PRIMARY MEANS FOR LOCATING 
THE APL CODE FOR A SPECIFIC OPERATION . 

THIS GUIDE IS BASED ON EXPERIENCE WITH IBM APLSV SYSTEMS. 
WHERE APPROPRIATE, THE TECHNIQUES HAVE BEEN CODED. SO AS NOT TO 
BE DEPENDENT ON ANY APL SYSTEM IMPLEMENTATION. HOWEVER, THE 
READER MUST DETERMINE WHETHER OR NOT CODE CHANGES ARE NECESSARY 
FOR EXECUTION ON ANOTHER APL SYSTEM. CERTAIN CODE 
IMPLEMENTATIONS MAY HAVE TO BE SPLIT INTO ADDITIONAL STATEMENTS 
IF THE ORDER OF EXECUTION OF OTHER APL SYSTEMS REQUIRES THIS. 

IT IS THE PHILOSOPHY OF THIS GUIDE TO SHOW ONLY THE BASIC 
CODE NECESSARY TO PERFORM A GIVEN OPERATION. ONLY A FEW 
TECHNIQUES ARE ILLUSTRATED AS COMPLETELY-DEFINED APL FUNCTIONS. 
IT IS LEFT TO THE READER TO COMBINE THESE BASIC COMPONENTS INTO 
STANDARDIZED SUBROUTINES OR LARGER FUNCTIONS AS DEEMED 
APPROPRIATE FOR AN APPLICATION. 



MORE THAN ONE IMPLEMENTATION OF A TECHNIQUE IS SHOWN WHEN 
THERE ARE SIGNIFICANT DIFFERENCES IN THE NATURE OF THE 
IMPLEMENTATIONS. EACH IMPLEMENTATION IS THE "BEST" ONE FOR ITS 
PARTICULAR APPROACH. THE ORDER IN WHICH THE IMPLEMENTATIONS ARE 
LISTED FOR EACH TECHNIQUE OR EACH TRADE-OFF IS BASED ON 
MEASUREMENTS OF THE TIME TAKEN TO PROCESS A VECTOR OF ABOUT 
2 5 ELEMENTS. THE FASTEST IMPLEMENTATION IS SHOWN FIRST. 

THE READER IS CAUTIONED, HOWEVER, THAT SUCH CHARACTERISTICS 
AS EXECUTION SPEED, STORAGE REQUIRED, DATA REPRESENTATION AND 
HANDLING, ETC., ARE DEPENDENT ON THE APL SYSTEM IMPLEMENTATION. 
THESE CHARACTERISTICS MAY ALSO CHANGE AS AN APL SYSTEM IS 
MODIFIED AND IMPROVED. THEREFORE NO EXPLICIT MEASUREMENTS OF 
THESE CHARACTERISTICS HAVE BEEN INCLUDED IN THIS GUIDE. 
READERS WHO CONSIDER THESE CHARACTERISTICS IMPORTANT IN THEIR 
APPLICATIONS SHOULD DETERMINE THEM FOR EACH TECHNIQUE ON THE 
APL SYSTEM WHICH THEY ARE USING. 
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EXECUTION SPEED CAN ALSO VARY WITH THE LENGTH AND NATURE OF 
THE VARIABLES PROCESSED. AN IMPLEMENTATION WHICH IS FASTER FOR 
SMALL VARIABLES MAX BE SLOWER FOR LARGE ONES. SIMILARLY, 
LOGICAL DATA {BITS) MAY BE HANDLED MORE SLOWLY THAN BYTE OR 
INTEGER DATA. 

***** 

THE IMPLEMENTATIONS SHOWN IN THIS GUIDE * ARE LARGELY 
NON-LOOPING SOLUTIONS USING THE POWER OF APL PRIMITIVE FUNCTIONS. 
THE READER SHOULD BE AWARE, HOWEVER, THAT IMPLEMENTATIONS WITH 
LOOPING CAN BE FASTER AND MORE EFFICIENT FOR LARGE DATA 
VARIABLES IN CERTAIN SITUATIONS. LOOPING WILL ALSO HELP AVOID 
"WS FULL" INTERRUPTIONS, ALLOWING LARGER VARIABLES TO BE 
PROCESSED . 

SOME ALTERNATE IMPLEMENTATIONS WHICH ARE KNOWN TO BE POORER 
HAVE BEEN INCLUDED IN ORDER TO DOCUMENT THEIR EXISTENCE AS 
VARIATIONS. CERTAIN ONES FOUND IN OLDER APL FUNCTIONS 
REPRESENT EARLIER SOLUTIONS DEVELOPED BEFORE NEW APL PRIMITIVE 
FUNCTIONS WERE ADDED TO THE LANGUAGE. SOME OF THE ALTERNATE 
IMPLEMENTATIONS, WHILE LESS EFFICIENT FOR PERFORMING THE ENTIRE 
TECHNIQUE, MAY NEVERTHELESS BE BETTER IN A SPECIFIC APPLICATION 
WHERE THEIR INTERMEDIATE RESULTS ARE ALSO USEFUL OR ALREADY 
AVAILABLE FROM PREVIOUS PROCESSING. THE FINAL RESULT MIGHT BE 
OBTAINED FASTER BY STARTING WITH THE INTERMEDIATE DATA THAN BY 
PROCESSING FROM SCRATCH WITH THE FASTEST TECHNIQUE. MINOR 
VARIATIONS IN IMPLEMENTATION, E.G., COMPLEMENTARY OPERATIONS, 
ARE GENERALLY OMITTED. THE NOTATION '"++" MEANS "IS THE SAME AS" . 

EXPLANATIONS OF THE DETAIL-PROCESSING' OCCURRING IN THESE 
TECHNIQUES ARE INCLUDED ONLY WHERE THEY WERE CONSIDERED 
NECESSARY. READERS WHO SEEK A SPECIFIC TECHNIQUE MAY SIMPLY 
COPY THE CODE AND VERIFY THE DESIRED OPERATION AND RESULTS. 
THOSE WHO WANT TO INCREASE THEIR GRASP AND UNDERSTANDING OF 
APL PROCESSING ARE ENCOURAGED TO STUDY THE CODE IN DETAIL. 
THIS CAN CONSIST OF FIRST WORKING IT OUT ON PAPER AND THEN 
EXECUTING EACH PORTION IN SEQUENCE TO EXAMINE THE RESULTS. THIS 
EXERCISE PROVES TO BE A VERY GOOD WAY TO UNDERSTAND AND MASTER 
APL SEMANTICS AND PROGRAMMING LOGIC. IT CONTRIBUTES TO THE 
ABILITY TO RECOGNIZE ENTIRE TECHNIQUES OR "IDIOMS" OF APL WHEN 
SUBSEQUENTLY READING APL PROGRAMS. SOME OF THESE TECHNIQUES 
ARE THEMSELVES COMBINATIONS OF SEVERAL SIMPLER TECHNIQUES. 

CERTAIN BRIEF APL OPERATIONS OCCUR REPEATEDLY IN THESE 
TECHNIQUES. THEY CAN BE THOUGHT OF AS "KERNEL" APL OPERATIONS 
AND ARE IDENTIFIED AS SUCH IN THE TEXT. WHILE THEY ARE NOT 
NECESSARILY USED TO PRODUCE FINAL RESULTS IN THEMSELVES, THEY 
FORM THE BASIS FOR MANY OTHER MORE COMPLEX TECHNIQUES. 
THEREFORE THEY ARE WORTH RECOGNIZING AND LEARNING. 

1 1 
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MANY OPERATIONS ARE SHOWN WITH A GENERALIZED TEST VARIABLE, 
E.G., "Q" , AND THE! MAX BE USABLE FOR EITHER NUMERIC OR CHARACTER 
DATA. IN APPLICATIONS WHERE ONLY ONE KIND OF DATA IS PROCESSED, 
THE SPECIFIC DATA ELEMENTS, E.G., OR l l , MAY BE SUBSTITUTED 
IN THE EXPRESSION RATHER THAN ASSIGNING THEM TO THE VARIABLE. 

WHEREVER POSSIBLE AND APPROPRIATE, THE IMPLEMENTATIONS OF 
THESE TECHNIQUES ARE CODED TO EXECUTE THE SAME REGARDLESS OF 
THE VALUE OF THE INDEX ORIGIN QIO . THIS IS DONE TO INCREASE 
THE USABILITY OF THE TECHNIQUES. HOWEVER IT FREQUENTLY MAKES 
THE APL CODE MORE DIFFICULT TO READ AND MORE CUMBERSOME . IF A 
TECHNIQUE IS TO BE EXECUTED IN AN ENVIRONMENT WITH AN 
UNCHANGING INDEX ORIGIN, IT IS SUGGESTED THAT THE READER 
SUBSTITUTE THE ORIGIN VALUE FOR UIO WHERE IT APPEARS IN THE 
CODE AND THEN SIMPLIFY THE APL EXPRESSIONS WHICH RESULT. 

***** 



THE PAGES OF THIS GUIDE HAVE 
BY EXECUTION OF APL FUNCTIONS. 
SHOWN FOR EACH OPERATION HAVE 
EXECUTING THE ILLUSTRATED APL 



BEEN FORMATTED AND GENERATED 

IN ALMOST ALL CASES THE RESULTS 

BEEN GENERATED BY ACTUALLY 

CODE. THE CODE FOR ALTERNATE 



IMPLEMENTATIONS HAS BEEN EXECUTED AND THE RESULTS COMPARED WITH 
THE MAIN ILLUSTRATION. CODE WHICH IS AFFECTED BY THE INDEX 
ORIGIN HAS BEEN EXECUTED IN BOTH ORIGINS AND THE RESULTS 
COMPARED (WITH ANY NECESSARY ADJUSTMENTS) . THEREFORE THE 
CORRECTNESS OF THE CODE SHOWN FOR EACh TECHNIQUE HAS BEEN 
VERIFIED IN THE PROCESS OF GENERATING THESE PAGES. 

READERS WHO KNOW OF OTHER "BETTER" IMPLEMENTATIONS OF ANY 
TECHNIQUE OR WHO DETERMINE IMPROVEMENTS TO ANY IMPLEMENTATIONS 
SHOWN IN THIS GUIDE ARE REQUESTED TO SEND THIS INFORMATION TO 
THE EDITOR. CONTRIBUTIONS AND SUGGESTIONS FOR ADDITIONAL 
TECHNIQUES ARE ALSO WELCOME. 

THE EDITOR IS INDEBTED TO MANY APL PROGRAMMERS , BOTH KNOWN 
AND UNKNOWN, FOR THE CODE WHICH HAS BEEN INCLUDED IN THIS 
GUIDE. SPECIAL APPRECIATION IS EXTENDED TO THE REVIEWERS, WHO 
CONTRIBUTED IMPROVEMENTS TO THE CODE, THE TEXT, AND THE FORMAT 
OF THIS GUIDE. 

CERTAIN MATERIAL IDENTIFIED BY FOOTNOTES HAS BEEN ADAPTED 
FROM THE PUBLICATIONS LISTED BELOW. SOME OF THE MATERIAL IS 
UNCHANGED EXCEPT FOR VARIABLE NAMES AND APL SYSTEM DIFFERENCES. 

1. PERLIS, ALAN J., AND RUGABER, SPENCER, T.HE A.PL IDIOM ££££. 
RESEARCH REPORT 87, YALE UNIVERSITY DEPARTMENT OF 
COMPUTER SCIENCE, APRIL 1977. 
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2. SMITH, ROBERT A., UQ.9M.IS. iMQ.ZLQ.lS. ASM WgNlQUKS., 

WORKING MEMORANDUM NO. 106, SCIENTIFIC TIME SHARING 
CORPORATION, FEBRUARX 1975, REVISED JUL? 1975. 

3. SIXES, ROY A., gSE AM MISUSE QF A.P.L - KFFIQIENZ Q.QPLM 

ZEJZMIQ.UES, SHARE XL, MARCH 7, 1973, SCIENTIFIC TIME 
SHARING CORPORATION. 
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QREATING I IRQ.T&R V 
BY C&TENAT.ZQK 

TYPE 1: CATENATING INDIVIDUAL ELEMENTS 
Pi INITIALIZE TO AN "EMPTY" VECTOR 

V+iO OR V-*- 1 * OR V+Op . . . 

p, ADD ELEMENTS BY CATENATION 

F«-7,45 78 23 

Pi USE THIS METHOD WHEN THE FINAL SIZE OF V IS UNKNOWN 

Pi Q.AUT10N: CATENATION REQUIRES THAT UWA > THE STORAGE 
Pi ~ TAKEN UP BY "v" . WHEN UWA BECOMES <, A "WS FULL" 
ft WILL OCCUR. 

TYPE 2: CATENATING SEVERAL VECTORS 

A GENERATE SEPARATE "PARTIAL" -VECTORS 

T+*FINAL SUMMARY REPORT OF ANNUAL SALES* 
D+^DECEMBER 31, 19', 2 TY 
BR+ 1 BRANCH OFFICE NO. ' , *N 

Pi CATENATE VECTORS TO FORM LONGER VECTOR 

HDR+I, * -- « ,BR, « -- » ,D 

PI USE THIS METHOD WHEN FINAL VECTOR WOULD BE TOO LONG 
Pi FOR ONE FUNCTION STATEMENT. THIS ALSO ALLOWS THE 
pi THE INDIVIDUAL VECTORS TO BE USED IN MORE THAN ONE 
Pi STATEMENT. 

(CONTD ON NEXT PAGE) 
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TlPl 3: MANUALLY ENTERING A VECTOR WHERE THE DATA EXCEEDS 
THE TERMINAL INPUT LINE LENGTH 



A CATENATE A U AT THE END OF EACH LINE WHICH IS 
A TO BE CONTINUED 

7+2.3 9.7 6.2 5.8 ... 43.79, □ 
D: 

93.7 105.2 125.3 ... 155.1, D 
D: 

... ETC • 



A CHARACTER INPUT MUST BE TYPED WITHIN QUOTES 
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Pi CATENATE THE ELEMENTS ONLY IF THEY DON'T OCCUR IN V 
V+VAL-*~QeV)/Q ** 



Pi INCREMENT THE CORRESPONDING COUNTER IN C FOR EACH 
Pi ELEMENT 



C+(C,L/Q)+VeQ ** 



A pV •*■+ pC 

PI CLI1 IS THE COUNT OF OCCURRENCES OF VLll 

EIAMPL.E: V+ t MBCRVKID* 

C«-2 5 2 1 .1 2 3 1 
Q+ ' BASED f 

BES.lL.tiZ'- Vl MECRVKIDBAS 

C: 26211232111 



Pi IF ANY ELEMENTS IN Q OCCUR MORE THAN ONCE: 

C+(C,L/0)++/V° .=Q 

BXAMB.LE.: Q+' MISSISSIPPI IS THE MAGNOLIA STATE' 

M£ULT: V: MECRVKIDBASP THGNOL 

C: 4821129214724311111 

** ADAPTED FROM (1) THE. ABU LU.LQM LIST 



CREATING <4 VECTOR £ 

il &SSIGNMEM AND LEMMIRG 



Pi FIRST ASSIGN "n" FILL-ELEMENTS TO THE VECTOR, E.G., 
PI PAD-ELEMENTS (0 OR BLANK); N = A POSITIVE INTEGER 

V«-Np0 

Pi NQTE,: NpO PRODUCES 1-BIT ELEMENTS. THESE WILL 
fl INCREASE TO INTEGER OR FLOATING POINT ELEMENTS 
Pi WHEN THE FIRST VALUE * OR 1 IS ASSIGNED. 

Pi INITIALIZE INDEXING VARIABLE 

PTR+0 CDIOf-1] 

Pi STORE ELEMENTS IN VECTOR BY INDEXING, CHECKING FOR 
Pi END OF VECTOR 

H N<PTR+PTR+1 ) /END 
VLPTR1+H5 

n ALTERNATIVELY 

+(N<~lfI+PTR+iK) I END 

Vlll<-1 2 3 ... K iUlO+11 

PTR+PTR+K 



Pi USE THIS METHOD IF THE FINAL SIZE OF VECTOR (OR AN 
A UPPER LIMIT ON THE SIZE) IS KNOWN 

Pi C.IU.TIQ.N: IF THE STORAGE TAKEN UP BY "v" > UWA , NO 

Pi OPERATION CAN BE PERFORMED WHICH WOULD DUPLICATE "v' 

n (WILL RESULT IN A "WS FULL") 
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V+NpW 

Pi W MAY BE AN ARRAY OF ANY RANK (0, 1, 2, 3, ...) 
Pi N MUST BE AN INTEGER £ 

MAMELE: #*«□» 
1N-10 

8.K&U&T : DnDDDDDDDD 



KIAMELE: W+ r ABCV x 
N+13 

EESJTLT: ABCDABCDABCDA 



EXAMPLE: W+2 3 4p 1 1 

N+17 



RKS.U.LT. : 



10010100 101001010 



Pi TO REPLICATE A VECTOR W N -TIMES', 



V+(NxpW)pW 



Pi N MUST BE AN INTEGER > 



EXAMPLE- &^'123 4 r 



RESULT: 1 2341 23m 2341 234 



GENERAZllG. A ZESIQ.S. IL&ISS, A LQ.G.LQ.AL m£ZQ& AM A S.Q.ALAR 2. 
7«-( LOGICAL VECTOR )\Q 

Pi PAD-ELEMENTS (0 OR BLANK) OCCUPY THE 0-BIT POSITIONS 
&XAM.PLE> UNDERLINING A HEADING {REPLACE Q WITH '"») 



HDR+ l THIS IS A HEADING* 
V«-(HDR* T * )\'~» 



RESULT: 



RKAMP.L.K ■ 



RRSUL.T : 



L+l 100110011001100 
V+L\ f * x 



00 OO 00 



GM.AZIM A ZSSXQS. Z 

G.MEMZZM A ZKQ.ZQR QF ififilCSfi 
Iff £!££££ 0.1 EIMZS& U 



7*(+/SOpO 

v++\7 



KKAMRL_E: W+2 2 4 1 

B.ES.ULT: 112233334 CDlO-i-1] 

pi ALTERNATE IMPLEMENTATIONS: 

7*DlO++\(\+/W)eUlO++\W 

7+QlO++/( \+/W)° .*UIO+ + \W 



A TO GENERATE A 7ECT0R OF THE ELEMENTS IN 7ECT0R X , 
A CODE: XlVl 

EXAMPLE: X+* A**=>V l 

W+3 112 3 

RESULT: AAAc*ooVVV 
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GENERATING, THE "x"TH &ll£ INDICES. I F.QJS. ££L ELEMENTS 
OF ARRAl A, QQEEESPONDING TQ RAVER- A (»d) '— " 



R+(.~UlO)+X-ppA 

!«-, (R<l>\ppA)§(R<bpA)p\(pA)lX] 



Pi THIS CAN BE SIMPLIFIED FOR ARRAYS OF RANK 1 OR 2: 

Pi RANK 1 (= VECTOR): I+xpA 

Pi fffi££: THIS IS A "KERNEL" APL OPERATION 

A RANK 2 (= MATRIX): 

A ROW INDICES (Z=l): J*. $( <|>p4 )p iltpd 

A COL INDICES U = 2): !■«-, ( pi )p i~lt pA 

A Ifi£g: FOR RANK > 3, Tffff EXPRESSION FOR THE LAST AXIS 

A (COLUMNS) IS THE SAME AS SHOWN ABOVE FOR RANK 2. 



EXJMPRE: A+2 3 2pil2 



1 2 

3 4 

5 6 

7 8 

9 10 

11 12 



RESULT: 



,A 

123456789 10 11 12 

CORRESPONDING PLANE INDICES (X+l) 
111111222222 



[DJO^l] 



CORRESPONDING ROW INDICES U«-2): 
112233112233 

CORRESPONDING COLUMN INDICES (X+3) 
121 2121212. 12 



(CONTD ON NEXT PAGE) 
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GENERATING. THE "x"TH AXIS UBICES I FOR ALL KLMENTS, 
01 ABB.A1 A> QORB.E.&ZQNQIM T.Q MIKL-A (.4) (CONTD) 



ft ALTERNATE IMPLEMENTATION: 

i+mo+((pA)TUx/pA)-nioKxii 



ft NOTE: THIS IMPLEMENTATION GENERATES INDICES FOR ALL 
ft THE AXES AT ONE TIME 



qsjssmxim a mams, ai imiaia 

IS LSQ.MAS.ZIG.-'Q.ec.r.e.&sing Sequence, tillR LSM.1R L. 
7«-dr#),<J>iLff«-Lt2 

££Atf£££ : I+8 

BM.SU LT; 12344321 ZUI0+1] 

RXAUIkE • L+i 3 

BMS.ULT: 0123456543210 [QI0«-O] 



p, SQ.T.E: IF H <- A DIMENSION OF A MATRIX M, V CAN BE 
a USED TO EXPAND M SYMMETRICALLY, I.E., MlV;l FOR 
Pi ROW SYMMETRY, Ml ;V1 FOR COLUMN SYMMETRY 



IS I&QREASIIG,- DECREASING SEQUENCE, WITH LENGTH £, 

ISR KZZ.8. UAIZM.UM ZALUE, K 



V+KL(i[H) ,$\LH+L*2 



KlAKEkS. : L+i 2 

££££££: 123333333321 IUI0+11 
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Q.REAZLM A Z&aZQB. I 

QMEERAT.IM A IEQ.T.OR with a RANGE 0.1 MM.RERS 

EU.Q.Q.EEELIE ZKT.EQ.EM IRQ.M. I TO K 

V<-j+<ixK-J)x(\i+\K-J)-niO 



EXAiiZLE : J<-7 
K*- 2 

RESULT,'- 76543210 ~1 "2 



S.U.Q.Q.ES.SLIE REAL HU.mb.ers ERQM I 1Q, K MQ.REM.ERTIE.Q. EI 2. 

V4-J+{DxxK-J)x(il + \ L(K-J)iD)-niO 

Pi J AND K ARE ANY REAL NUMBERS; D REAL AND > 

EMM.PLE: cT+1.4 
Z+-8.2 
ZX-.7 

REEU.LT. ' 1.42.12.83.54.24.95.66.377.7 

(.CONTD ON NEXT PAGE) 
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QEE.AZIM& A W1QR Z 

GEIERATING i ZE&ZQS. KZT.B. 4 BAB.G& 0.1 KMEM& (CONTD) 



R successive qeal BMB.ER& S.ZAB.T.ZM KIM K ASS. 
IB.G&ENMEZULG. Rl U 



V+N+Dx(iR)-UlO 



fl R IS ANY INTEGER Z 0; N AND D ARE ANY REAL NUMBERS 

E&AMEkE. : JR< ~ 1 ° 
N+O 

D«-.l 
RESULT : 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 



pi SPECIAL CASE IMPLEMENTATIONS, FOR INTEGER N 
Pi AND D = 1: 



V+(N-UI0)+\R 

V+(.N-UIO) + iR+N-niO ** 

EXAMPLE.'- fl«-8 
N+l 3 

B.ESULT: 13 14 15 16 17 18 19 20 

** ADAPTED FROM (3) USE AND Ml£VS,E QF AP.L 
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GMEAUM A MQZQ.S. I 

QE&E8AZWG. A L.QQIC.&L. (&QQLMN) ZEG.ZQZ 
ELZS. K LEAJIZE.G. l'fi AIR L.EMZ& L 

V+L*Kpl 

EXAMPLE : L+l 2 
K+5 

B.ES.U.LZ' liiiiooooooo 

A ALTERNATE IMPLEMENTATION: 
V+(K-~UIO)>\L 

EZZB. & ZR&ZLZNQ. i*g lEQ. UEMG.Z& L 

V+(-L)+Kpl 

RMU.L.Z- oooooooiiiii 

n ALTERNATE IMPLEMENTATION: 
V<-(L-K+~UI0)<\L 
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Q.U.UUM a zeqzqb. z 

aE.EES.AllM A L2Q.lQ.Ak (UQZkEAV ZEQZQ.R 
UEEZEZEQ ZEE IZEkU RA&ZZZZON £ 0.1 Z 



Pi pP «-•+• pV 

Pi Pin = 1 WHERE Vlll IS THE FIRST {OR LAST) ELEMENT 

Pi OF A FIELD; OTHERWISE PC J] = 

pi N.QTE: THIS VECTOR "P" IS REQUIRED WHEN PERFORMING 

Pi CERTAIN OTHER OPERATIONS ON FIELDS OF V 



WHM ZB.EB.E ARE EQ, EZEL.D DELIMITERS 

TYPE 1: FOR K FIELDS WITH SAME WIDTH W 

FIRST: P+(KxW)pW\± 
LAST'. P+(.K*W)p(-W)tl 

Pi NQTg: THIS IS A "KERNEL" APL OPERATION 

ElAUikE- K+5 

W<-3 

S.ES.U.L.Z- FIRST: 100100100 100100 

LAST: 00 100 100 10 01001 

Pi ALTERNATE IMPLEMENTATIONS: 

FIRST: P+(KxW) pi, (W-DpO 
LAST: P+(KxW)p((W-l)pO),l 



Pi NOTE: THIS FIELD PARTITION CAN BE USED WHEN 
pi PROCESSING A K*W MATRIX RAVELED AS A VECTOR 



(CONTD ON NEXT PAGE) 
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QMIUM A ZKQZQB. I 

2MUMM.AZIEG. A UQ.G.LQ.AL. (RQQ.LEAN) ZKQTOR 

B.KIZKIM ISM ZLELD ZAB.ILIi.QM. £ Q.I I (contd) 
WES. ZUMER ARK EQ. ILRLD U.KLIUIIIB.S. (CONTD) 



TYPE 2: FROM A VECTOR I OF INDEX NUMBERS OF THE 
1ST ELEMENTS OF EACH FIELD 



FIRST: P«-(tp7)eT 
LAST: F+l4>(-ip7)eI 

Pi N.QTE: THIS IS A "KERNEL" APL OPERATION 

EXAMPLE: 7-*-ilO 

J«-l 4 5 9 CDI0+1] 

U.KSULT: FIRST: 10011000 10 

LAST: 0011000101 



Pi NQT.E: "P+(ipV)el" IS ALSO VALID FOR A VECTOR V 
Pi *" WITH FIELD DELIMITERS 



(CONTD ON NEXT PAGE) 
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QB.KAT.IM A Z&ctqr I 

GENE&AZLIG. A k2Q.lQ.AL (fififiifiAff) ZKQTQR 

RRIL&LEQ. £££' ILKLR PA&T.LT.IQR R Ql Z (CONTD) 
MM ZK£M AM RQ. ■ E£EM ££££££££££ (CONTD) 



TYPE 3: FROM A VECTOR OF FIELD-WIDTHS W, 
WHERE pV ■*-► +/W 



FIRST: P<r(i + /W)e + \QI0,W 
LAST: P+(i + /J/)e(+\J/)-~DJO 

MAMZLE : W+3 1 4 2 

UES.U.kZ • FIRST : 1001100010 

LAST: 0011000101 

Pi ALTERNATE IMPLEMENTATIONS: 



FIRST: B+(GxpW)p(G+r/W)+l 
P+( t W» .>(\G)-UI0)/B 

LAST: B«-(ffxp{/)p(-G<-(7&0+l 
P+(,W°.>$( \G)-UI0)/B 



(CONTD ON NEXT PAGE) 
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Q.REAZZM A ZEQTQR V 

QRMRAZLU.G. A LQ.aiQ.AL. (BQQLEAK) VECTOR 

DERZRZRQ, T.M RZELR RARZZZZQ.E RQ.ll (CONTD) 
KB.EK ZRERE ARE RQ. RZELR delimiters (contd) 

TYPE 4: FROM A VECTOR OF FIELDS OF IDENTICAL ELEMENTS 

FIRST: P-f-1, (rU7)*~l + 7 
LAST: P«-((1 + 7)*~1+K),l 

« ROTE'. THIS IS A "KERNEL" APL OPERATION 

pi NQTE: MAY HAVE TO SORT V FIRST TO PRODUCE THE FIELDS 

EX.AM.RkE'- V+ x BB0DDDCCCA x 

RES.U.LZ- FIRST: 10 10 10 1 

LAST : 0100010011 

fl ALTERNATE IMPLEMENTATIONS: 

FIRST: P+V*~l + (.l*0pV),V 
LAST: P«-7*14T,l + 0pF 

pi THESE CAN BE SIMPLIFIED AS FOLLOWS: 

NUMERIC V CHARACTER V 

FIRST: P-e-F*~l + 0,F P«-7*~l+* ' ,7 

LAST: P«-F*H-7,0 P«-F*l + 7, * » 

{CONTD ON -NEXT PAGE) 
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GSMAZLM A ZKQZQ.R I 

GENERATING A LOGIQIL (BQOLFAN) VECIQR 

DEFINING THE FIELD PART IT I QN P Q.F. V (CONTD) 
KS.M THERE ARE IQ UgLD DELIMZTE.M (CONTD) 

TYPE *+: (CONTD) 

" Q.AU.TION: 1ST AND LAST ELEMENTS OF V MUST BE 

Pi DIFFERENT TO USE THE FOLLOWING IMPLEMENTATIONS 

FIRST: P<rV*~±$V 
LAST: P+V*1$V 

WHEN. TgE FIELD DELIMITER IS Q 

FIRST: P+S>~1+0,S+V*Q 
LAST: P-<-£>l + (S<rV*Q ),0 

n NQTK: EMPTY FIELDS ARE ELIMINATED FROM THE PARTITION 
EXAMPLE : V+ « , ALPHA , PHI , , BETA ' 

RESULT: FIRST: 010000010000 1000 

LAST: 00 00 10001000001 

Pi KQZK- TO DELETE THE FIELD DELIMITERS FROM V AND P 
pi FOR OTHER PROCESSING, USE: 

V+S/V OR V+(V*Q)/V 

P+S/P OR P+(V*Q)/P 
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Q&MUM A mOZQR l 

SSSSSAUM A kQ.QlQ.AL (£££££££) ZIG.ZQ.R 

IK ££££££ 0.1 KV2XMS. U* ALS.KRS.AT.IKS. '1*8. AKU o'g 

ZZ£E 1: K FIELDS WITH SAME WIDTH W 
V+(.'KxW)p{Wx2)*Wpl 

A NQTE: TO START WITH O'S, CODE: ". . . ( -J/x2) . .■ 

KIAUELK' #*5 
W+3 

RULSJlhl' l l i o o o jl i i o o o l i l 



ZIRE, 2: FROM A VECTOR OF FIELD-WIDTHS W, 
WHERE pV ■«-*• +/W 



Pi NOTE: TO START WITH 0*5, CODE: ~V 

KIAM£,LK- tf-*-5 2 3 1 4 

RE.SU&Z: 111110011101111 

Pi QLQTE: THIS IS A "* SCAN" OPERATION PERFORMED ON A 
P. " LOGICAL VECTOR DEFINING THE 1ST ELEMENTS OF THE 
Pi FIELD PARTITION OF V (SEE PREVIOUS TECHNIQUE) . 

Pi ALTERNATE IMPLEMENTATION: 



B+( G xp W) p ( Gx 2 ) -t ( ff«-r /V) p 1 
7*( ..!/•.>( iff )-Di"0)/B 



A fffi££: TO START WITH 0«5. CODS': " . . . ( -Gx2 ) . , 
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expanding. / ZM&KZZM KLMMZS. ZIZQ A ZRQ.ZQ& 1 

Z&SER.ZZ&G. & elements. S. RKIQRK/AIZM KAQS. RLMMMZ Q.E Z 

TTPR 1: INSERTING PAD-ELEMENTS (0 OR BLANK) 

AFTER: V+, 7, ( (p7) ,K )pQ IQ+O OR Q+* '] 

BEFORE: V+, ( ( ( p7) ,K)pQ) ,7 



KKAMEkE: INSERTING ZEROES 

K+2 

RESULT: AFTER: 1002003 00400500 

BEFORE: 00 10020 03004005 



fl ALTERNATE IMPLEMENTATIONS: 

AFTER: V+, ( ( p7) ,K+1 ) f ( (pV) , 1 )pV 
BEFORE: 7-*-, ( (p7) , -K+l ) f( (p7) , 1 )pV 

AFTER: V+(((K+l)xpV)pOC-H)*l)\V 
BEFORE: V+( ( (K+l ) xp7)p ( -X+l ) tl ) \7 

(CONTD ON NEXT PAGE) 
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&12&RULM I ZISEE.S.IM ELEMENTS. LIT.Q. A Y.EQ.T.Q.R I 

LKaERZIKG. K EL.EUEKTS, Q. REZORE/&ZTER E.AQ.R ELEMENT QZ 1 (CONTD) 
£Z£E 2: INSERTING ANY OTHER ELEMENT Q 

AFTER: 7<-,7, ( ( p7) , JOpS 
BEFORE: V+, ( ( (p7) ,K)pQ ) , 7 



EIAM.P.LE: 7i-i5 

Q+10 

RJHSUL.T: AFTER: 110 10 210 10 3 10 10 4 1010 5 10 10 

BEFORE: 10 101 10 10 210 10 3 10 10 4 10 10 5 



Pi ALTERNATE IMPLEMENTATIONS: 



AFTER: 7-e-(S«-( (K+l )x P 7)p U+l ) +1 )\V 
Vl(~B)/-LpVl«-Q 

BEFORE: 7«-(B«-( (K+l )xp7)p ( -K+l Ml )\7 
7[(~B)/tp7>G 



Pi ALTERNATE IMPLEMENTATION , FOR K = 1 



AFTER: V+. 7, CDI0+O . 5] £ 

DI0-KL: 7-<-,7, [1.5] S 
DI0-K): 7«-,7, [0.5] Q 

BEFORE: 7+.G.CDJ0+0 .51 7 



fl tffi£ff: AXIS-NUMBER DECIMAL-PART IS A DECIMAL VALUE 
pi " BETWEEN AND 1; "0.5" 5A0RW fl£i?£ 

KKAHZZEi INSERTING ASTERISKS 
V+ l ABCDEFG l 

RESRht- AFTER: A*B*C*D*E*F*G* 

BEFORE: *A*B*C*D*E*F*G 
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EXPANDING / IKSEgTING. ELEMENTS £NTO A 1EQ.T.Q.B, V 



INSERTING. K ELEMENTS £ BEF.Q.RE/A.FTER THE ELEMENTS WITH 
IRRIQES I * " 



TYPE 1: INSERTING PAD-ELEMENTS (0 OR BLANK) 



AFTER: N+K*pI+,I £Q+o OR Q+* »] 

V+(.V.NpQ)ZlUpV),NpIl 

BEFORE: N+KxpI+,1 

pi HQZKi TO INSERT AFTER FIELDS OF WIDTHS "w" , SET I<-+\W 

EX&MPL.E : V+ l NO WISTHETIME l 

I>3 5 8 ZUIO+1] 

K+2 

q+x t 

RESULT: AFTER: NOW IS THE TIME 

BEFORE : NO WI STH ETIME 



Pi ALTERNATE IMPLEMENTATIONS: 



AFTER: J-cZHJ*- , I ] 

B+(.(KxN+pI)+pV)pl 

Bl ( , $ UC , N ) 9 I+~DI0 ) + iZxtfX) 

V+B\V 

BEFORE: REPLACE "~UI0" WITH "-UIO" 



AFTER: J+J[^J«-.J] 

J+( , k((K, N) pJ+~QJ0 ) + iKxN+p I 
V+(~(v(KxN)+pV)eJ)\V 

BEFORE: REPLACE "~UIO" WITH "-UIO" 



AFTER: C+((K+l)xpV)pL+(K+l)tl 

V+( ( , ( ( vp V) eJ ) • . vL ) (C ) \V 

BEFORE ; REPLA CE ~L+ ( K+l )..-.** WITH "L+ ( -K+l ) . 
(CONTD ON NEXT PAGE) 
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MIMQIM I IH&S&ZISjSL KLRM.KMS. L&ZQ. A IKQZQR z 



inserting £ elements q. eeiqr.e/ifter the el.mert.s. with 
~Hd.IQ.eI z (contd! 



ZZS.S. 1: (CONTD) 

ft FOR K = 1, THESE SIMPLIFY TO: 

AFTER: V+( V> ( p , DpQ )U( xpV) , ( p , Dp J] 

AFTER: I+IlkI+,11 

B-f-((tf«-pI)+pF)pl 

Bl(I+~UIO)+iNl+0 

V+BW 

AFTER: I«-r[ 4J>,I] 

F«-(<~( v/l7+pF)e(I+~Dia) + i^pJ)\F 



Z£Pg 2 : INSERTING ANY OTHER ELEMENT Q 



AFTER: N+KxpI+,I 

V+(V,NpQ)lb(vpV),NpH 

BEFORE: N+KxpI+,I 

V+((NpQ) a V)lb(NpI), ipF] 



El&MP&E: £«-'*♦ 

RESULT: AFTER: NOW**IS**THE**TIME 

BEFORE: NO**WI**STH**ETIME 



Pi ALTERNATE IMPLEMENTATION: 



AFTER: I+IL bl+, J] 

B«-(Ux21H-pI)+p7)pl 
Bl(,§(K,N)pI+~QIO)+lKxN]+0 

V+B\V 
Vt(~B)/ipVl+Q 

BEFORE: REPLACE "~UIO" WITH "-UIO" 



23 



EXPANDING I ZB&EBZIM ELEMENTS INTQ. £ ZECTQR V 



Z£££££I££ RLMM1 S. LK kldths % before/ after t.re e.&emenz£ 

UlTH INDLQKS. I ~ """" " 



TYPE 1: INSERTING PAD-ELEMENTS (0 OR BLANK) 



AFTER: I+IlS+iI+,H 

C+(GxpV)p(G*-l + [/W+WlSl)ll 

V<r(( t U°.>(xG)-OIO)/C)\V 

BEFORE: REPLACE "(G+.. ." WITH "(-<?•*-...** AND 
"iG" WITH "4>iG" 



Pi EACH ELEMENT OF W CONTAINS THE NUMBER OF ELEMENTS TO 

Pi BE INSERTED BEFORE/AFTER THE ELEMENT OF V WHOSE 

fl INDEX IS THE CORRESPONDING ELEMENT OF I; pi «--* pW 

S.KAM.P.LE: V+7 6 5 4 3 2 1 

1+2 5 6 iniO+ll 
W+l 3 2 

RESULT: AFTER: 760543000200 1 



PI ALTERNATE IMPLEMENTATIONS: 

AFTER: I+IlS+lI+,11 

K+UIO++/( ipV)o.>I 

«7+( ipV) + (+\O t W*-WLSl )CZ] 

V*-(Xv(+/W)+pV)eJ)\V ** 

BEFORE: REPLACE "° . >" WITH "° . >" 

** ADAPTED FROM (1) TRg AP.L. IDIQM L.IST 

(CONTD ON NEXT PAGE) 
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KXPAKDIKG. I Z&SES1IM ELEMENTS. IN.TQ A IEQ.T.QR I 



INSERTING i&EMEKT Q. IN WIDTHS. K M.EQ.KK I AFTER THE ELEMENTS 
KITM. IRRLCES l ( CONTD ) 



ZIPE 2: INSERTING ANY OTHER ELEMENT Q 



AFTER'. 



BEFORE ; 



I+IlS+bI+,11 

0(Gxp7)p(G-hl + r /W+WlS~])il 

U+((ipV)eI)\W 

7-f-( £+•( , U* . > ( \G ) -DIO ) IC ) \ V 

Vl(~B)/\f>Vl+Q 



REPLACE (G+*... WITH 
iG WITH <j>iG 



(-G+. . 



AND 



EXAMPLE: Q+ 1 

MS.U.LT: 7 6 ~1 5 4 3 ~1 "1 "1 2 "l "l 1 
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uumim i immuKQ rlmmmis. mza & wgzq& i 



USAXLUIM. '££££££ EZZS. ULUSSMZ &IRZ&SL E T.Q IIELRSL Ql ZM 
S.AM.K UZUZ& L 



RIQZZ-iU&UZZEB. IZKL.Q& 

V<-(,W° .>$(iL)-UlO)\V 

A INSERTS PAD-ELEMENTS (0 OR BLANK) 
A "L" MUST BE > [/W 

KK&MELE : V+'AA BCDA BABC 1 
W+l 4 2 3 
L+* 

U.KS.HL.Z' AABCD AB ABC 

A ALTERNATE IMPLEMENTATIONS: 

7<-(,(f/-~Ql<?)°.M>t£)\7 

7*(» (L-W)o. <UL)-UI0)\V 

IMEl-flLSZlZIER IZELU.S 

V+-(,W° .>(\.L)-DI0)\V 
RES.U.UT.- A ABCDAB ABC 

A ALTERNATE IMPLEMENTATIONS: 

7<-( ,W° .>( \L )+~DJC) \V 

V4-(,(W—ni0)°.>\L)\V 
A S02!£: THESE ARE "KERNEL" APL OPERATIONS 

2 6 



EXIAB&ZB.Q I ZMmZZKG. UMMIS. IKZQ A ZEQZQ,R I 

ZS.&K&ZZM RkKMMlZ SL AlZKR tIMZ "k'ZS. EkMMX. Ql I 

& Q IS A SCALAR; Q MAY BE A VECTOR ONLY IF pQ -*--> r(p7)*X 

KlAUZi-K- 7**123178' 
£*2 

«*V 
EE&ULZ'- 12/31/78/ 

A flflfffi: MAY ALSO CATENATE Q AT THE LEFT, BEFORE THE RAVEL. 

A LEADING Q MAY BE DELETED VIA: 7*1 + , . . .. 
A THEN THE EXAMPLE CAN BE SIMPLIFIED TO : 

7*1+, «/'. 3 2 p7 

A #£££: M4Y ## ffZ? ^ DELETE TRAILING OCCURRENCES OF Q AND (OR 
A "" EXTRANEOUS ELEMENTS OF V PRODUCED BY THE RESHAPE: 

7*(~l+i?+p7)p(((J?*r(p7)*£),/Op7),e 

MS.RUZ' 12/31/78 
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Kli.AUM.LM I WLWLWL KLSMSS.X& IUXQ. A ZE&ZQ& I 

msKRum a sx&ma & Aizm za& zummz kizb. imu i 

7*((X+~OXOH7),S',(X+Hlr0H7 

0X0*1: 7«-(X+7),S,X + 7 

0X0*0; 7*((X+lM7),S,(X+lH7 

Pi S MAY BE A SCALAR OR VECTOR 

EXAMPLE : 7* ' ABCD EI J l 
S^ l EFG l 
X*4 1 0X0*1] 

RMS-HkZ'- ABCDEFGHIJ 

Pi ALTERNATE IMPLEMENTATION: 

7*(7,S)Udp7),(p£)pX] ** 
PI TO INSERT S AFTER SEVERAL ELEMENTS: 



tf+-(pS*,S)xpX-«-,X 
7*(7,ffpS , )UUp7),,^((pS'),pX)pX] 



EXAMPLE: 7+-' fl*(fl = )+B* 15 ' 

5*'[3]« 
X*3 8 110X0*0] 

RESULT: B[3]*-(B[3]=0)+B[3]*15 



Pi gfi^g:- Sfftf ^LSO XHff TECHNIQUE REPLACING MULTIPLE 
Pi " OCCURRENCES ..." 



** ADAPTED FROM (1) £g£ A££ ■ Ifiifitf L.LST 
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EZSASSIM I I8SSS3LI3LG. KbEffitLZS. IU.ZQ. A ZIQZQB. I 

EXPANDING Y. 10. iiSSSXA k 

EASSIM KJUBL ZB& PA.R-EhKM.MZ (o OR blank) 

V+-LW 

RESULT: 123456700000000 

Pi ALTERNATE IMPLEMENTATION: 

V+LtV,LpQ LQ+O OR Q+ l l ] 

EAP.UZM UZZB. TM UAS.T E.LEM.ENT 

V*L*V,Lp~liV 
URSML.Z ' 123456777777777 

ft ALTERNATE IMPLEMENTATION: 

V+VlUL)l(pV)-~UlOl 
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ZESTING TH.E ELEMENTS. IN A. ZKQ.ZQ.S, Z 

Q.KZRRU.IN.IN.G IF ELEMENT £ QC.QUM IE Z 

R+QeV 

B RESULT R IS 1 IF Q OCCURS IN V AND IF IT DOESN x T 

P, IF Q IS A VECTOR , R IS A VECTOR OF TEE SAME LENGTH 

EXAMPLE'. V*-'WE THE PEOPLE 1 
Q+*LATE X 

g.ESUL£: 10 11 

Pi ALTERNATE IMPLEMENTATIONS, WHEN Q IS A SCALAR: 

R+v/V=Q OR R+W.=Q 

R+0< + /V=Q OR R+0<V+.=Q 



Pi ALTERNATE IMPLEMENTATIONS, WHEN Q IS EITHER VECTOR 
fl OR SCALAR; 



R+(UlO+pV)>V\Q 



DI0-KL: R+il+pV)>V-iQ 
□10+0: R+(py)>y\Q 



R+v/Qo .=7 



R+((pV)-~QlO)*V\Q 



UIO+1: R<r(pV}*V\Q 
□10+0; R+{(pV)-l)*VU 
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issum w emm&ezs in a ze.qt.qb. i 



UZTM.MIM.IM II WZQ.B, IIM.LU QZ X AM KLEMMMX Q QQQU.E.S, 



A FIND THE INDICES OF THE OCCURRENCES OF THE ELEMENT Q 
A IN Vi RANGE-CHECK THESE INDICES AGAINST THE INDICES 
A OF THE FIELD BOUNDARIES 



OC+*./U+(.V=Q)fipV)*.ZFB 



A "fb" IS AN N*2 matrix where each row contains the lower 

a AND UPPER BOUNDARY INDICES OF A FIELD (SEE TECHNIQUE 

A "FINDING THE BOUNDARY INDICES ..."). THE INDICES USED 

A FOR THESE BOUNDS ARE DEPENDENT ON THE RELATIONAL 

A FUNCTION USED ( > OR £ ) . 

a N.Q.TE: "*/N°.>R" IS A "KERNEL" APL OPERATION FOR 

a RANGE-CHECKING THE NUMBERS N AGAINST THE LOWER AND 

A UPPER RANGE LIMITS R 



KIAM.P.LE : 



F«-'55.55 
FB+6 2pl 



59.55 59.59 50.50 50.59 90.09* 

6 7 12 13 18 19 24 25 30 31 36 LUlO+ll 



££££&£: 



BOUNDS: 



6 12 18 24 30 36 
1 7 13 19 25 31 



INDICES : 



8 
14 
17 
29 

31 
35 












1 









1 
1 




















1 











1 
1 



A THE RESULTANT BIT MATRIX OC HAS 1 ROW FOR EACH INDEX 
A OCCURRENCE OF Q, AND 1 COLUMN FOR EACH FIELD DEFINED 
A IN "FB", I.E., pOC «-+ (pD.ltpFB. A OR 1 INDICATES 
A THE ABSENCE OR PRESENCE OF THAT OCCURRENCE OF Q IN THE 
A FIELD 

A EACH COLUMN OF "OC" CAN BE USED TO SELECT THE INDICES 
A THAT OCCUR IN FIELD "k", I.E.: OCl;Kl/I 



(CONTD ON NEXT PAGE) 
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TESTING. THE £££#£ff££ £N A, ZE.QXQM. Z 

detmmMIMM 11 miQ.ll lllkv 0.1 Z AS. S.LMZM Q. QQ.G.URS. (contd) 

ft THE FIRST OCCURRENCE OF Q IN FIELD ~K~ CAN BE DETERMINED 

ft USING; T<r<\OC 

ft AND THEN: TL;K2/I 

ft vfOC INDICATES WHICH FIELDS CONTAIN Q 

ft THE COLUMNS CAN BE SUMMED TO COUNT THE NUMBER OF 

ft OCCURRENCES OF Q IN THE FIELDS, I.E.: +{0C 



ft TO TEST FOR ANY OF SEVERAL DIFFERENT ELEMENTS ~DQ" , 

ft REPLACE "V=Q" WITH "VeDQ" OR "v/Vo.^DQ" 

ft THEN v/OC INDICATES WHICH ELEMENTS OF "DQ" OCCUR IN 

ft SOME FIELD 
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zKzzim tee zummzs. n a jlegzor i 

Q.aU.UZLU.Q. THE B.UMBM& 0.1 QGjS.UMSMB.QMS. I 0.1 ELEMENTS a IE I 
N++/Q* .=v 
Pi "n" contains the counts for each respective element in q 

ft IF Q IS A SINGLE ELEMENT, THIS SIMPLIFIES TO: 

N++/Q=V OR N+Q+.=V 

EXAMPLE : V+'A LPHA , BETA , GAMMA , DELTA , EPSIL ON * 

Q+ l t AFIT l 

MMULT.: 4 6 12 

ft TO COUNT THE GRAND TOTAL OF ALL OCCURRENCES OF ELEMENTS Q 
pi IN V: 

N++/VeQ 

SM8MMZ- 13 
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TE&ZZE.Q. the RLMMIS, IE A ZKQ.TQR K 

PERIQRMIM R&LATZQU&L ZKS.ZS, &LQM £ 
f?«-(~14-7) a 14-7 



A THIS REPRESENTS: ( 7[l]a7[ 2] ) , ( VL 2]a7[ 3] ) 

« 7[ l + p7]a7Cp7] CDlO-f-1] 

pi "a" 15 ONE OF THE RELATIONAL FUNCTIONS < <; = * > > 
Pi FOi? NUMBERS AND = * FOi? CHARACTERS 

p. TO TFST IF 2>#F. RELATION HOLDS ALONG 7, SUBSTITUTE 
pi i?*A/. . . Off . , . a. a . . . 

pi pi? f-> (p7)-l 

A REDUCTION (a/7) D0F5 #02" PRODUCE THIS RESULT, SINCE ITS 
Pi INTERMEDIATE RIGHT-COMPARANDS BECOME BOOLEAN AFTER THE 
pi RIGHTMOST COMPARISON 

KlAMEkE: TESTING FOR " <" ALONG V 

7+1 2465 91317 

B.K£.HL,T.: 1110 111 



Pi ALTERNATE IMPLEMENTATIONS LpR «-+ p 7]: 

Pi FOR <: i?«-(i7) = vp7 ** 

Pi FOR ALL =: i?+A/7=lp7 OR J?«-7a . =1 p 7 ** 

** ADAPTED FROM ( 1 ) ZM AZk ZQ.LQM LIST 
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ISSUES. IKK KLMMIS. IN A ZKG.IQ.B. I 

UEZEMLEIMQ. II AkL Xfi£ ZLEUKKTZ Q.Z z ARE ILBIS.U& 
R+*/(xpV)-ViV ** 

KMMSLM,'- 7•«- , c=>nuXT|a^LVAoD*ov•l■•^~pea)o^?<^=>>' l! VA. , 

R.ES.U.UI - ° 

pi ALTERNATE IMPLEMENTATION: 

/?«-~0e( ipV)=VvV 

** ADAPTED FROM (1) T,HE APL IDIQM UIS.I 
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8S.I/SJS1JJLQ. ELEMENTS Ql A ZEQ.TQS, Z 

SMMQU&Q. &LEH&B.3& Z.U.AT. SAXXSMJ. A ZE.S.Z 

R+( TEST )/V 

n THE "TEST" MUST PRODUCE A BOOLEAN RESULT (E.G., USING 
ft A LOGICAL OR RELATIONAL EXPRESSION) WHICH IS A SCALAR 
P^ OR A VECTOR WITH THE SAME LENGTH AS V 

A IF NO ELEMENTS ARE SELECTED, THE RESULT IS AN EMPTY VECTOR 

EXAMILE: SELECTING ELEMENTS > 5 

2?+(7>5)/K+2 5 8 13 19 

■RES.UL.T: 8 13 19 

EXAMPLE-. SELECTING ELEMENTS * BLANKS 

R+(V* 1 l -)/7«-« THIS IS A CHAR. LINE t 
RESULT : THISISACHAR . LINE 



EK&MEIiK: SELECTING / DELETING A SUBSTRING 



RESULT : 



R+ l **DATE t , (( TEST )/' -RANGE* <) ,. * ERROR 1 
TEST+Q 

**DATE ERROR 



A ffig££: y^S" C0Z>£ F0f? Or^ffi? "TESTS" MAY BE EXTRACTED FROM 
A THE APPROPRIATE TECHNIQUES IN THIS GUIDE. FOR 
Pi EXAMPLE, THE TEST FOR "ALL LEADING OCCURRENCES" MAY BE 
A FOUND IN THE TECHNIQUE FOR DELETING SUCH OCCURRENCES. 

ft ADDITIONAL TESTS ARE SHOWN ON THE FOLLOWING PAGES. 
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SELECTING ELEMENTS, 0.1 A IS.Q1Q.B. I 

S,KkK££lM KLMElZg £. MLQB. AB.E betweEK PAIRED d_el.imit.ers d, 

TJPE 1 : ONLY 1 TYPE OF DELIMITER ELEMENT 

Pi TEE RESULT WILL INCLUDE TEE DELIMITERS AND TEE ELEMENTS 
pi BETWEEN TEEM 

A CMTZQ,N: NO "NESTING" OF PAIRED DELIMITERS IS ALLOWED 
E&AMP.LE- BETWEEN PAIRED QUOTATION MARKS (") 

V-<r t TEE "BEST" ANSWER IS " LIMIT".* 
D+ l "< 

KES.U.L.Z'- "best"" limit" 

pi ALTERNATE IMPLEMENTATION: 

P«-(£7<l + =\0,C«-£*F)/7 
Pi TO SELECT WITEOUT TEE DELIMITERS : 

P+ ( B vru * \1 , B+D = V ) / V 

P«-( CM + =\ , C+Z?*n /F 
KKSMUZ' BESTLIMIT 

R MtE'- TRE TEST F0R BALANCED DELIMITERS IS: 

0=2)+/B OR Q=2\+/D=V 

(.CONTD ON NEXT PAGE) 
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SSLSSJLIM. ELEMENTS Qg i IEQ.ZQR 1 



SE&&GZLM EWKR.X.EL £ KilQ.3. ARE between paired delimiters d 

(CONTD) " *.-««-* * 



S.IE& 2: LEFT AND RIGHT DELIMITER ELEMENTS 

P«-(Ls: + \(7=l+27)-~l + 0,7=l+27)/7 

A "27" CONTAINS THE DELIMITERS IN THE ORDER OF PAIRING, 

A E.G., ZK f []* 

A JPP RESULT WILL INCLUDE THE DELIMITERS AND THE ELEMENTS 

A #< BETWEEN THEM 

A "L" JS r/fS LP7PL C7F NESTING OF THE PAIRED DELIMITERS 

A TO B2? SELECTED 

EXMEIiR'- BETWEEN PARENTHESES 

V+ l ( ( ipi? ) =Pi2?) //?.-<-( 5 | N) *2 « 
£«- f ( ) l 

S.ES.ULZ- ((ipi?)=i?l2?)(5|2/) 

A ALTERNATE IMPLEMENTATION'. 

P«-(L£+\1 + -/ "1 $0,27o.=7)/7 
A TO SELECT WITHOUT THE DELIMITERS FOR LEVEL "l" ': 

P«-(L<; + \(~l + 0,7=l+27)-7=l+23)/7 

P«-(L<+\1 + -/ "1 4>0,27o.=7)/7 
££££££: (\pR)=R\R5\N 

a Ij2££: TPSTS POP BALANCED DELIMITERS ARE: 

a/0<+-\(7=1+2?)-7=1+27 0j? A/OS + \-/23o .=7 
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mSGXUBJi KkMMZS. 0.1 A ZfiCZflfi Z 

S&ZRGZIM BAEM&B1& £ #2I££ AM aU.Zg.ZQ.E EAZMB. Q£LIH£IE&& D 
ZZiM. 1 > ONLI ± TYPE OF DELIMITER ELEMENT 

A THE RESULT WILL INCLUDE THE DELIMITERS AND THE ELEMENTS 
A OUTSIDE THEM 

* HAWZZQM' no "NESTING" OF PAIRED DELIMITERS IS ALLOWED 

S.IAUM.UL'- OUTSIDE PAIRED QUOTATION MARKS (") 

V+ l THE "BEST" ANSWER IS " LIMIT*'.* 

S.MRL.Z- ^BE "" ANSWER IS "" . 

A ALTERNATE IMPLEMENTATION: 

P+( Cttl* =\ , C+D*V ) / V 
A TO SELECT WITHOUT THE DELIMITERS: 

P+(B<1 + *\1,B+'D=V)/V 

MS,U.kZ- THE ANSWER IS . 

(CONTD ON NEXT PAGE) 



39 



S.RL.RCTHG ZLmmS. 01 A ZKQ.ZQ.R I 



selecting gbSMKUXS. £ KUG.Z IBM. QUZSIRZ £41212 EKLJMZW& U 

{CONTD) 



TY£E 2: LEFT AND RIGRT DELIMITER ELEMENTS 

A "D" CONTAINS TRE DELIMITERS IN TRE ORDER OF PAIRING, 

P. E.G., £«-*[]« 

A iPfftf RESULT WILL INCLUDE TRE DELIMITERS AND TRE ELEMENTS 

n OUTSIDE TREM 

A "V" JS ffHS" LSTffL OF NESTING OF TRE PAIRED DELIMITERS 

Pi TO BE SELECTED 

RXA.MP.L.&' OUTSIDE PARENTHESES 

V+H(lpR)=R\R)/R+(5\N)*2 t 

L+l 
RESULT: ()/JM)*2 

A ALTERNATE IMPLEMENTATION'. 

P+(L>+\l+-f ~1 4>0,Z?<> . =7)/7 
A TO SELECT WITHOUT THE DELIMITERS FOR LEVEL " L" : 

F*-(L> + \(7=l+Z?)-"l*0.7=l+Z7)/7 

P«-(L> + \1 + -/ ~1 pO,D<> ,=V)/V 
RESULT: /R+*2 
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8ELEGZLB.G KL.mii.TS. Ql A VBSXQ& Z 

^ELECTING SB&SXMIB& 2 KIXM. S.T.ART.IM LEU.KI I AM bS&GXR k 

KI&M.ZLR'- V+* THESE ARE THE TIMES* 
J* 6 tUlO+ll 
L+8 

RESULT: ARE THE 

Pi ALTERNATE IMPLEMENTATION: 

Pi TO SELECT MULTIPLE SUBSTRINGS WITH SAME LENGTH: 
S<-VlAl-UIO)°. + iLl 



EXAMi-M : !+&■' 117 C UIO+1 ] 
L+Z 

RESULT: RE THEMES 
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SBL&SUM KLRMRUS. 0.1 A IKQ-ZOR Z 



SSLS.G1LM lkiz AND &iagT HELDS qf z MLLKlZm BY 

zkk Kkmmz & 



B+li+ P L<-((Vy.Q)-UlO)+V) + v 



Z&AM.ELK ' V+ l PA RM1 t ARG2 l 



££££££: L: PARM1 
R: ARG2 
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SSMG1IS.S. BLEM&&X& 01 A ZEQZQg, V 
SSMCIJM £££££ I 0.1 I 

Till 1: USING A FIELD PARTITION VECTOR P 

Pi MUST FIRST GENERATE A LOGICAL VECTOR P DEFINING THE 
Pi FIELD PARTITION OF 7, WITH A 1-BIT FOR THE 1ST 
Pi ELEMENT OF EACH FIELD OF V AND 0*5 OTHERWISE 
A (SEE SECTION "GENERATING A LOGICAL VECTOR"). 
Pi ALSO pP -<•+ pV 

« QAMXZQJBL' ANY FIELD DELIMITERS MUST BE DELETED FROM V 

F+(N=+\P)/V 

Pi "N" IS THE NUMBER OF THE FIELD 

pi HQT%: "+\P" IS A "KERNEL" APL OPERATION 

EXAMP.LE,: V*- r 11111 2223 34445566 66 667 '»■ 

P+l 0000 10010 100101000001 

AM- 6 

R.K2.ULT: 666666 

Pi ALTERNATE IMPLEMENTATIONS, WHEN N IS A VECTOR: 
F<r((+\P)eN)/V 

EXAMPLE'. flh-2 5 7 
RESULT: 222557 

(CONTD ON NEXT PAGE) 
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SM.L.RQ.TIU.Q. KLMMZS qf A YEQ.ZQ& I 
S.EL.RG.TLEG. ££££& K 0.1 I (CONTD) 



TJPE 2: USING THE INDEX OF THE FIRST ELEMENT AND THE 
FIELD WIDTH 



Pi PERFORM THE FOLLOWING 3 TECHNIQUES: 

A 1. COMPUTE WIDTHS W OF THE FIELDS OF V 

pi 2. FIND THE STARTING {BOUNDARY) INDICES I OF EACH 
Pi FIELD 

pi 3. USE THESE TO SELECT THE SUBSTRING "FIELD N" VIA 

F<rWlNmilNl-UIO) + V 

d "N" IS THE INDEX-NUMBER OF THE FIELD 
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ZLiLRIM IM2IGM 01 &LEMESX& 01 A IEQTQR I 

limilM THE IERLQ.ES, 01 EkMEMS. T.MZ S.AT.ZS.ZZ A ZEST 

!•*■( TEST )/vpV 

A KQTE: THIS IS A "KERNEL" APL OPERATION 

EJ.AMPL.E: FINDING THE INDICES OF THE DELIMITER *V 

V+ l nALPRAr\BETAnGAMMAnPInZET.A * 
lHV= t (\ t )/tpV 

SS&lUhE.' 1 7 JL2 18 21 tUIO+ll 



fl fl.QT.K-> TO OBTAIN THE INDICES FOR A SPECIFIC 

a Index origin, add-. 



DIO+I: I«-(~DI0) + ( ^tfST )/tp7 
QI0+O: Jt-(-DIO) + ( rffOT )/ipl r 
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USRIMJBL USJUSS& Ql RUMMIS QZ A X&QTQB. I 

iimmo. zu.k muKi qz zm ^&z q&qmsjbilss. ox lummzs. a 

I+V\Q 

MMEL.I '• V+ l ED CBA JIHGFEJDIZG * 
Qt- l GADH 1 

' B&SW&i 9 5 2 8 IUI0+11 

ft ALTERNATE IMPLEMENTATION: 
I+UI0++/*\Q° .*V 



A ALTERNATE IMPLEMENTATIONS, WHEN Q IS A SCALAR OR 
A 1-ELEMENT VECTOR: 



I+(<\V=Q)/ipV 
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IWllM T.M LEUEl QL Z.S.S, L.AS.T Q.QQHS.&KE.S.K OF ELMM.IT.S, Q. 

jv(~i iL2xni01 + pV)-(W)\.Q 

DJ0+1: I+(l + pV)-(<bV)vQ 
niO+Q: I>( J. + p7)-(<j>7)i<? 

EXAMPLE- V+ X EDCBAJIRGFEJDIZG* 
Q+ X GADRX* 

RESHkZ'- 16 5 13 8 IQIO+Il 

A ALTERNATE IMPLEMENTATIONS: 

J>(((2xDJ0)-l)+p7)-(4>y)t4 

I+U~l*~OlO)+pV)-($V)}.Q 

I-K+/v\Qo .=<pV)-~UIO 



P, ALTERNATE IMPLEMENTATION, WREN Q IS A SCALAR OR 
Pi 1-ELEMENT' VECTOR: 



I+~li(V=Q)/\pV 
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FINDING INDICES, QF ELEMENTS. <2£ A ZKQ.1QR J. 

lliung jBE IBRIGE& I 0.1 £££ SM,lk L MS.Z AIR kARG.K&Z ELEMiLZ 

A THE SMALLEST ELEMENT: 
I+V\L/V ** 

fl NQTE: FINDS INDEX OF THE 1ST OCCURRENCE 
KX.AMS.kK' V+l* 76 i+6 54 22 5 68 68 94 3 9 

R.KS.ULT: 6 LUI0+11 

n ALTERNATE IMPLEMENTATIONS: 

I+li-kV OR i+~i+yv 

Pi M.QTE: ". . ."1+ . . . " FINDS THE &AST OCCURRENCE 

Pi THE LARGEST ELEMENT: 

I+V\T/V ** 

RESULT: 9 LUIO+ll 

A ALTERNATE IMPLEMENTATIONS: 

J-f-lifF OR I+~l+bV 
** ADAPTED FROM (1) £#£ 4P£ IDIOM L.ZS.T 
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IIMIM IKQ.IQI.S. OF ELEMEHZ.S QF g ZRCTQR V 

ZULllIllQ. Z&K STARTING INDICES, I QF QCCURRENCES OF A PATTERN 
^Q^EJ/EMENTS~ 

FINQZNG ALL. QQQKRRENCEg QF A. SUBSTRING S. 

Pi FIND INDICES OF ALL OCCURRENCES OF 1ST ELEMENT OF 

P, SUBSTRING, EXCEPT ANY THAT ARE TOO CLOSE TO END OF V 

I+(L*V=l+S)/i(pV)+L+l-pS<r,S 

A EXTRACT THE SUBSTRINGS AND KEEP ONLY THE INDICES OF 
S THE IDENTICAL ONES 

I<-(VL(I-DlO)o. + xpSlA.=S)/I 

Pi &OTE: IF "pi" WILL BE GREATER THAN "pS", CODE 
A "**. . .7CJo. + ( \pS)-Ul01.. ." 

EX&MP.LE: V+* STORE THE FIRST INSTANCE OF "ST" LAST' 

S+ l ST f 

RESULT: - 1 14 19 3 3 6 LUIO*-ll 

Pi RESULT IS THE EMPTY VECTOR WHEN THE SUBSTRING IS NOT 
Pi FOUND 

Pi ALTERNATE IMPLEMENTATIONS: 

^-K(-LHSA.=(L 5 l+py)p7)/l(py)+l-L«-ps'-<-,s , ** 

I+U^((ipS)-[]J0)4>(£«-.S)o.=n/ip7 

pi NQTE: THIS LAST IMPLEMENTATION FINDS OCCURRENCES 
Pi ~ '"WRAPPED AROUND" THE ENDS OF V . TO AVOID THIS: 

j-Ki+V((ipS)-DJ0)4>o,(s«-,S)o.=y)/ip7 
** ADAPTED FROM (3) £££ A.ND, MISUSE QF AZL 
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URRIKQ. JJHLLQR& QF KLMKIZS. QF & ZEQ.ZQ.B. I 



ILMIM THK &TAJS.TINQ INDZQ.ES I QF QQCURRENCES. QF A PATTERN 
OF ELEMENTS 



FINDING ALL QCCU.KMRQ.KS OF 4 W1ER s 



« KQ.TE,: IGNORES ANY OCCURRENCE OF THE WORD THAT IS 
Pi EMBEDDED WITHIN ANOTHER WORD 



ft FIND INDICES OF ALL OCCURRENCES OF 1ST ELEMENT OF 
fl WORD, EXCEPT ANY THAT ARE TOO CLOSE TO END OF V 

I+(L±V=liS)/\((>V)+L+l-pS+>S 

A EXTRACT THE SUBSTRINGS AND KEEP ONLY THE INDICES 
A OF THE IDENTICAL ONES 

!«-( 7[ ( J-DI0 ) ° . + iptf] a . =S) /I 

A COMPUTE THE INDICES OF THE ELEMENTS IMMEDIATELY 

Pi before and after each substring, and range-check 

!-*-,#/( J+I° . +~± , pS ) o . > ( , p V ) — D 10 

Pi KEEP ONLY THE STARTING INDICES OF THE SUBSTRINGS 
A WHOSE ADJACENT ELEMENTS ARE N ON -WORD ELEMENTS OR 
A AT THE VECTOR ENDS 

A RQZK- "ALF" IS A VECTOR OF VALID ELEMENTS FOR 
A WORDS OR LABELS 

I<-(~v/(pJ)pL\VLL/,Jle.ALF)/I 



RXAMZLE: V+ l STORE THE FIRST INSTANCE OF "ST" LAST* 
S+'ST* 

ALF+ , ABCDEFGHIJKLMNOPQRSTUVWXYZL012Zk567 89 t 
ALF+ALF , « lB.C^llgHllKLMlQPQ.R.S^TUZKXYZU l 

RESU.LT : 3 [ UIO+1 1 
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HIRING. IMLQSJS. Ql ELEMENTS, 0.1 A ZEQT.Q.B. I 

UKUIM THE BQU.NDAR.Z INDICES. QF £HE FIELDS OF V 

MM there AB.E no field RELIMITERS 

IYP.E 1: FROM A VECTOR OF FIELD-WIDTHS W, WHERE pV ++ + /W 

FIRST ELEMENTS: LB<r+\~l \UIO , W 
LAST ELEMENTS: UB«r(+\W)-~UlO 



EXAMPLE: J/«-5 2 3 1 4 

KES.U.RT: LB: 1 6 8 11 12 [QJO-el] 

UB: 57 10 11 15 

LB: 5 7 10 11 CDJO-e-O] 

UB: H 9 10 W 



A &Q.TE- FOR K FIELDS WITH SAME WIDTH L , SET W+KpL 



pi e21e- to obtain the indices for a specific 
a Index origin, add-. 



DIO+0: LB+i.-UIO)*. . 
Pi I LIKEWISE FOR "UB"l 
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IIRB.IRG IKQ.ICES QF ELEMM.RTS QF & Z&GZQM, Z 

ZIRRIRQ. TEE RQUNRA.RY INDICES. QF ZSR E.ZELDS QF 7. ( CONTD ) 

WHER THERE &RE RO FIEL.D RKLIMITERS {CONTD) 

TYPE 2: WHEN V CONTAINS FIELDS OF IDENTICAL ELEMENTS 

FIRST ELEMENTS: LB+(1 , (1 + 7) *~14-7) /tp7 
LAST ELEMENTS: UB+( ( (14-7) *~l+7) , 1 )/ ip7 



Pi NOTE: IF xpV IS REPLACED BY "v" , THE BOUNDARY 
Pi ELEMENTS (.FIRST OR LAST) OF EACH FIELD WILL BE 
Pi SELECTED 

EXAMPLE: 7«-» AABBBBCDDDEEEE • 

RES.ULT: LB: 1 3 7 8 11 LDI0+1] 

M: 2 6 7 10 11 



Pi NOTE: TO OBTAIN THE INDICES FOR A SPECIFIC 
R INDEX ORIGIN, ADD: 

QIO+1: LB+(~niO)+. . . 

0I0+Q: LB+(-UlO)+. . . 

Pi ALTERNATE IMPLEMENTATIONS: 

FIRST: LB-*-(7*~l + (l + 0p7).7)/ip7 
LAST: tfB«-(7*H-7,lt0p7)/ip7 

Pi THESE CAN BE SIMPLIFIED AS FOLLOWS: 

NUMERIC V CHARACTER V 

FIRST: LB«-(7*~14-0,7)/tp7 LB+(7*~l+» ',7)/ip7 
LAST: [/B-K>*H-7 s 0)/vp7 UB+{ 7*1 + 7, » «)/ip7 

(CONTD ON NEXT PAGE) 
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Zl&QIM MU.IQKS. Ql RLMKKTS 0.1 A Y.KQ.ZQR I 

FINDLE.Q. THE BOUNDARY INDICES QF THE FIELDS QF V (CONTD) 

when THKKK &&K KQ HKkR UKLIKIZKRS. (CONTD) 

ZIPE 2: WEEN V CONTAINS FIELDS OF IDENTICAL ELEMENTS 
' {CONTD) 

pi CAUTION: 1ST AND LAST ELEMENTS OF V MUST BE 

p " DIFFERENT TO USE THE FOLLOWING IMPLEMENTATIONS 

FIRST: LB+(V*~l$V)/\pV 
LAST: UB+(V*l$V)/\pV 

W.HEN THE IIELD DELIMITER, ISL & 

FIRST ELEMENTS: LB<r(l , V=Q ) / il + p V 
LAST ELEMENTS: UB+~l+( ( V=Q ) , 1 ) / il+p7 



pi ASSUMES THAT V CONTAINS NO LEADING OR TRAILING 
Pi DELIMITERS Q, UNLESS IT HAS EMPTY FIELDS. 

A TO PRODUCE AN Nx2 MATRIX "FB" WHERE EACH ROW 
fl CONTAINS TEE BOUNDARY INDICES OF A FIELD, 
ft ENTER: FB+LB> LUIO+0 . 5lUB 

EXAMPLE: 7^*55.55 59.55 59.59 50.50 50.59 90.09' 

££££££ : LB: 1 .7 13 19 25 31 [DI0+1] 
UB: 5 11 17 23 29 35 



P, ALTERNATE IMPLEMENTATIONS: 

FIRST: LB<r(U=Q)/\pU-<rQ t V 
LAST: UB+~l + (U*Q)/ipU+V,Q 
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SHIFTING A ZEQ.T.Q.R 1 

SHIFTING. N PQSITIQNS. EZT.RQU.T aU.AlQ.IM TEE LENQTH OF V 

EZZU. ERAP.-ARau.RD (ROTATING) 

RIGHT: V+(-N)$>V 

LEFT: V+NfyV 



R1&MPLE: 7-*-ilO 

N+Z 

RESULT.: R: 89101234567 

L: 456789 10 123 



Pi NOTE: USING ONLY V+NfyV 

Pi LEFT ++ N>0 AND RIGHT ++ N<0 

KLT&OVT ERAP-AS.aU.NQ 

fi PAD-ELEMENT WILL BE FOR NUMBERS, BLANKS FOR CHARS 

RIGHT: 7«-(-p7) + (-tf)4-7 

LEFT: 7«-(p7)fiH7 



EXAMPLE- 7+110 

2IH-4 

RESULT.'- R- 000 0123456 

L: 567891000 00 
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SSIIXIM A ZKGZ.QR I 

CENTERZM I 

MM IRK EZkk-g.bEM.KllZ L£ Q- 

v+{ f o . 5x {B ii ) - ( 4>b«-f*G ) ii )$v 



EX&MPkK'- V+ X --AB-C D--E * 

RKS.U.LT: AB-C D--E 
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S.KIIZIEQ. A ZKQ.ZOR z 
G&&ZE&IB£ Z 

KHM.X.H A ZZEL.Q QL EAE.-KLE&E.11Z& 0.1 KIQZE. K 

l/+(-L(J/+p7)*2) + 7 

A OMIT THE "Wi" IF DO NOT NEED RESULT IN FULL WIDTH W 

EXAMPLE: V*- 1 TABLE OF CONTENTS 1 

W+30 

M.SU.L.Z- I TABLE OF CONTENTS | 

A ALTERNATE IMPLEMENTATIONS: 

i/+(( [0.5*W-pV)-W)*V 

J/+((L0.5xJ/-p7)pG),7 [£+0 OR Q+ x •] 
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sezeizbg. a mams, i 

GMBXE&I&a Z 

G.QMEB.KS&IKG. X.M tLL.L.-'gLEMENT £ TQ_ THE SID IS 

7*( TO . 5x+/~B)$VllB+V*Q] 

EJ^AtiBLE : V+* ° °A° ° °BC°D° °EF° °° ° °G l 

Q<r • o i 

B.Eb£UL.Z : oo ooooABCDEFG° °° ° o °° 

A ALTERNATE IMPLEMENTATION: 

7«-(ro.5x + /~8)<K-p7H((p7)pG),(S«-7*5)/7 
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S.M.IFTINQ A Z&QZQB. V 
&IQ,HT-IH&TIFIIIG I 

KS.M ZEE. llL.k-KL.MMZ IS. Q. 
v+(nio-(Q*$v)ii)$>v 

n THE COMPLEMENT IS: V*-(UIO- ( Q=$V) tO )<J>7 
EXAMPLE: V+* ***A*BB**CCC****** 
RKS.U.LZ 1 ********A*BB**CCC 

Pi ALTERNATE IMPLEMENTATIONS: 

7+(-(~l + (7*fl)/ip7)+~[]J0)<|>7 
7+(l-(7=«)H)*7 ** 

7«-(- + /a\£=<|>F)<$>F 



n fifiZfi: JF £ IS 4 VECTOR OF DIFFERENT FILL-ELEMENTS, 
ft REPLACE "V*Q" WITR "~VeQ" AND "Q*$V" WITH "~($V)eQ" 



** ADAPTED FROM (1) £#£ ^PL ZDIQM LIST 
{CONTD ON NEXT PAGE) 
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&S.ZZZZKQ. A ZEQT.Q.B. I 
KIQ.RZ-IIL&UIUM I 

MM THE FILL,- ELEMENT, IS & (CONTD) 

a SPECIAL CASE IMPLEMENTATION: 

A WHEN V IS LEFT-JUSTIFIED AND THERE ARE NO 
ft EMBEDDED FILL-ELEMENTS Q 

V+(+/V*Q)4>V OR V+(V+.*Q)$>V 

E,XAM£.LE: 7-*-' ALASKA******** 
B.ES.ULT.- *******ALASKA 

Pi ALTERNATE IMPLEMENTATION: 

V<r((V\Q)-niO)$V 
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SB1EZIBM & ZSHXQ& Z 

KZZB.IN A, ILEkU 01 EAB.-KUM&KZS, 01 KLU1K K 

(-W)W 

Pi NQ.TE: IF W < pV, V WILL BE TRUNCATED ON THE LEFT 

W+12 
££££[££: 000001234567 



n N.0ZK- THE FORMAT FUNCTION ▼ CAN ALSO BE USED TO 
ft RIGHT-JUSTIFY THE CHARACTER RESULT WHEN FORMATTING 
Pi NUMBERS 



A ALTERNATE IMPLEMENTATION: 



(-W)*(.Wf>Q),V LQ+0 OR Q+ x *] 
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ZHIFTINQ i ZE.S.T.QB. Z 
RIQ.U.T- JUSTIFYING Z 

aaMRB.E§.sina xae iill- element a mii 

V<rVtkV*Q'] 



EKAME-i-E,'- V-*-!***A*BB**CCC***** 1 

RESULT: ***********,4BBCCC 



A ALTERNATE IMPLEMENTATIONS: 

V+(B/V)A~B<rV=Q)/V 

V+((+/~B)pQ) ,(B<-V*Q) /V 

y<r(-pV)*((pV)pQ)AV*Q)/V 
A ALTERNATE IMPLEMENTATION, WHEN Q IS THE PAD -ELEMENT: 

V+(-pV)+(V*Q)/V 



EIAMILE- v+o 010230040 
8.MUL3L'- 0000001234 
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DRIFTING A ZECZQB. Z 
LEFT -UlSXI IILM Z 

MM ZU.K ZUlL-KUMMI IS. & 

7«-(((7*«)il)-OJ0)4>7 

UIO+1: V+(.((V*Q)\1)-1)$V 
DI0-«-O: V+UV*Q)\1)$V 

Pi THE COMPLEMENT IS: VH ( ( V=Q ) tO ) -UIO )<t>7 



EXAMPLE: 7-*-' ***A*BB**CCC***** * 

RM.SJILT: A*BB**CCC******** 



A ALTERNATE IMPLEMENTATIONS: 

V+((lf<.V*Q)/\pV)-UIO)$V 



A ££££: IF Q IS A VECTOR OF DIFFERENT FILL-ELEMENTS, 
R " REPLACE "V*Q" WITH "~VeQ" AND "Q*$V" WITH "~(<$>V)eQ" 



(CONTD ON NEXT PAGE) 
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SHIFTING I ZKQ.1QM. Y. 
LEFT-IU.S.ZIFIING V 

MM T.UM, ZIL.Il-eIM.EIT IS. Q. (CONTD) 

A SPECIAL CASE IMPLEMENTATION : 

R WHEN V IS EIGHT-JUSTIFIED AND THERE ARE NO 
Pi EMBEDDED FILL-ELEMENTS Q 

V+(- + /V*Q)$V OR V+(-V+.*Q)4>V 



E£AMPLE: V+ f *******ALASKA* 

Q+** 1 

R.ESU.UZ' ALASKA******* 
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SMISXIM. 4 1L&GIQ& I 
liSIZ-HlSXIEHUSt I 

KIT.U.LK A ZLILD QF EA&-K&E&K&Z& 0.1 KLUZE E 
w*v 

P. RQ.T.&: IF W < pV, V WILL BE TRUNCATED ON THE RIGHT 

EXAMPLE.: V+\l 

J/+1 2 

RESULT'- 123456700000 

A ALTERNATE IMPLEMENTATION: 

W\V,WpQ IQ+O OR Q+i »] 
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SHIFTING A ZRG.1Q.& I 
LSIl-iRSlIZIVlQ. 1L 

* 

Q.Q.MPMS.SINQ, THE FILL -ELEMENT Q. B1GLEZ 
V+VlfV*Ql 



EXAMPLE: 7-*- 1 ***A*BB**CCC***** * 

RESULT: ABBCCC*********** 



fl ALTERNATE IMPLEMENTATIONS: 

V*-(B/V) ,(~B+V*Q)/V 

VHB/V), (+/~B+V*Q)pQ 

V+(pV) + ((V*Q)/V)ApV)pQ 
Pi ALTERNATE IMPLEMENTATION, WHEN Q IS THE PAD-ELEMENT: 

V+(pV)*(V*Q)/V 



££M£&£: V+0 010230040 

.Q+0 

REgULT: 1234000000 
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SHIFTING A VEQTQR I 

MY.ERS.IRQ. TKE PQ£IZIQ.M Q_l THE EHS.WSILT.tiL 0.1 I 
REVERSING THE ELEMENTS WITH INDICES I 



EXAM.PL.E: V+1Z 56 35 44 21 60 78 

1+2 5 lUlO+ll 

RESULT: 13 21 35 4 4 56 60 78 



Pi NOTE: IF 2<pl, THIS WILL REVERSE THE POSITIONS OF 
Pi THE GROUP OF ELEMENTS 
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SHIFTING. A 1EG.ZQ.B. I 

REIEE.SING TgE ZQ.S.ZZIQ.M Ql V.U.K ELEMENTS Q.F I 

&KZKRS.IRQ. tee el.emE.HTS UIT.HK E&Q.M. ZULU, of. v 

a MUST FIRST GENERATE A LOGICAL VECTOR P DEFINING THE 

A FIELD PARTITION OF V, WITH A 1-BIT FOR THE 1ST 

A ELEMENT OF EACH FIELD OF V AND 0*S OTHERWISE 

A (.SEE SECTION "GENERATING A LOGICAL VECTOR"). 

A ALSO pP ■*-»■ pV 

A Q.AU.T.LQK- ANY FIELD DELIMITERS MUST BE DELETED FROM V 

v+viM+\Pl ** 

EXAMPLE: V+'ABCDEFGHIJ * 

Pt-1 0011000 10 

RESULT : CBADHGFEJI 

** ADAPTED FROM (2) S.Q.Q.LEAN FUNCTIONS. AND TECHNIQUES 
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SQRTING A VECTQ.B. I 

S.QRTING, A numeric ZEQ.TOR 

IK AS.Q.M2.1NG ORDER 

V+VlfrVl 

fl QAUTION: BEFORE SORTING, MAY HAVE TO USE *>«-, V" 
Pi TO ENSURE THAT V IS A VECTOR 

E.X&MPLE: 7+77 29 42 3 18 81 

RESULT: 3 18 29 42 77 81 

Pi gOTEx CAN USE "i+bV" TO SORT ANOTHER VECTOR "w" WHOSE 
Pi ELEMENTS CORRESPOND TO V, I.E.: W+Will 

IK DES.CENB.IIG. Q.RDER 
V+VWV] 
RESULT: 81 77 42 29 18 3 



P, ROTE: IN SUBSEQUENT TECHNIQUES, A DESCENDING SORT 
P, MAY BE OBTAINED BY SUBSTITUTING "f" FOR "f 



IN KLZKEB. ASCENDING QR DESQ.KIU.ING. QRDER 

V+VliVxT] ** 

P FOR ASCENDING SORT, SET "T+l"; FOR DESCENDING, ~T+~l' 

KKAM.EL.E : T*-~l 

RESULT: 81 77 4 2 29 18 3 

** ADAPTED FROM (1) THE APL IDIQM L.IS.T 
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SLQRZI&G. A ZKQZQ.R I 

§.QB.T£NG 4 UM.KE.IQ. 1KQZQ.K 

i2.QR.ZZKQ. ZEE KUKMM.ZS. Q.F £ WITHIN THE FIELDS OF V 

A MUST FIRST GENERATE A LOGICAL VECTOR P DEFINING THE 
A FIELD PARTITION OF V, WITH A 1-BIT FOR THE 1ST 
A ELEMENT OF EACH FIELD OF V AND O r S OTHERWISE 
A {SEE SECTION "GENERATING A LOGICAL VECTOR"). 
A ALSO pP +■*■ pV 

« QAU.ZLQR'- ANY FIELD DELIMITERS MUST BE DELETED FROM V 

IK AS.QKKU.ZM QMREB. 

V<rVlSll(+\P)lS+bVlll ** 

RX.AMP.kK- 7«-10 987654321 

P-*-! 00 1100010 

RESULT: 89107345612 

A ALTERNATE IMPLEMENTATION, FOR NUMBERS > 0: 
V+VllV++\Px[/Vl 



A THE SORT INDICES WITHIN EACH FIELD CAN BE 
A GENERATED VIA: 



I+niO+Sli(+\P) LS+lVl ]-T\PxipP ** 

RKS-HkZ- 3211432121 CDI0+1] 

** adapted FROM (2) UQQUKAR RMQZZQM AM ZKQ.MIQ.MS 

(CONTD ON NEXT PAGE) 
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SORTING A ZEG.TQ.R V 

SORTING A N,UM.ERIQ. IRQTOR 

S.QRTING TRE ELEMENTS QF £ WITHIN THE FIELDS. OF V (CONTD) 
IN DESCENDING ORDER 

v+visii(+\p)ts+yvii'] ** 

EXAMPLE: V*-l 2345678910 

P«-l 001100010 

RES.UL.T : 32148765109 

A ALTERNATE IMPLEMENTATION , FOR NUMBERS > 0: 

V+VLHV++\Px-[ /Vl 
A LIKEWISE THE SORT INDICES "WITHIN THE FIELDS" ARE: 

i+nio+sik(+\p)is+yvii-r\pxipp ** 

RRSU.LT: 210032 1010 [DI0+O] 

** ADAPTED FROM (2) B,Q.0LE&N F.U.NQ.TIQNS A.ND TECH.NIQRRS. 
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sq&zim a ziazae. i 

S3SIIJSS. A MMEB.LQ. Z&Q.T.QM. 

RM.TKmiS.ltQ. JIMS. BAM-QBBM B. 0.1 the elmKIZS ai I 
AS.Q.MULU.Q. B.AHS.-Q.RUKB. 

pi pi? <■■*■ pV 

A Rill IS THE RANK OF VLll IN V, I.E., THE INDEX 
ft OF VI II IN A SORTED 7 

Pi &OTE: THIS IS A "KERNEL" APL OPERATION 

EXAMPLE: V+ 148 149 152 157 153 160 143 

V+V, 137 146 151 155 147 150 145 

B.MU.LT: 6 71013 1114 214 9 125 8 3 

Pi ALTERNATE IMPLEMENTATION: 
R+VlbVl\V 

D.ESQENU.ING RAE&-QBREB. 
R+WV 
R.ES.U.LT: 9 8 5 2 4 1 13 14 11 6 3 10 7 12 

Pi ALTERNATE IMPLEMENTATION: 
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SORTING A VECTQ.R, 7. 

SQS.TINQ, 4. Q.KARAQ.TER ZEQTQg 

a mzM- 

A 1 . NON-NUMERIC DATA MUST BE ENCODED AS NUMBERS IN ORDER 
Pi TO BE SORTED. 

pi 2. THE NUMERIC SORT OPERATIONS CAN BE MODIFIED FOR 
A SORTING A CHARACTER VECTOR V BY REPLACING ~lV~ WITH 
A THE "KERNEL" APL OPERATION "iSSEQ\V" (SEE BELOW 
A FOR POSSIBLE "SSEQ"). LIKEWISE FOR f . 

A 3. THE SORT SEQUENCE (SSEQ) IS USER-DEFINED. " BLANK" 
A MUST BE POSITIONED WHERE APPROPRIATE. 

A ^. Q.A.U.T.ION: UAV IS S.ZSTEM DE__EN.P_EN.T. IRE FOLLOWING 
A SORT SEQUENCES WITH UAV ARE FOR £££_§,£. 

A POSSIBLE SORT SEQUENCES (SSEQ): 

ft SSEQ+ l ABCD. . .WXYZA 0123456789' - EXPLICIT DEFINITION 

A SSEQ+UAV - SYSTEM DEFINITION: LETTERS (PLAIN AND 

A UNDERSCORED) , NUMBERS, BLANK 

A SSEQ+* x ,UAV - BLANK, LETTERS, NUMBERS 

A SSS^-K 6 4*86*047), 'Q* - LETTERS, NUMBERS, SPECIAL CHARS 

A (SEQUENCE FOR LABELS) 

A OR ANY OTHER SEQUENCE OF ANY CHARACTERS. 



MQ.ZLM Q.8.&R&.2X.KR.S. RQZ IB. ZB.E EQ.RZ SMaUMQE ZQ. EUR QF £ 

V<-VlbSSEQiVl 

EX.AMP.IlE'- V^ 1 PROBLEM DEFINITION: (I* J) + CT5 2 ' 

SSEQ<r % ABCDEFGRIJKLMNOPQRSTUVWXYZ 0123456789 * 

U.ES.ULT : BCDEEFIIIIJLMNNO OPRT 2 5 : ( f ) t [ 

A NOTE: SUBSTITUTE *>" .FOj? "A" 2*0 OBTAIN A DESCENDING SORT 

(CONTD ON NEXT PAGE) 
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sjqrii&g. a mamR z 

sogTZNa A Q.MB.AQ.ZM 1LSSX3& (CONTD) 

B&LS1ISS. GBAMG.ZEM HQZ IS. T.ER &Q&Z ££££!#££ 

V+Vl ( ILJ1 <QIO+pSSEQ ) /J+il+SSEQ xVl 
B.&SU&T: BCDEEFIIIIJLMNNOOPRT 25 

Pi ALTERNATE IMPLEMENTATION: 

V+Vl bSSEQ\V+(VeSSEQ) /7] 



73 



8QBUU& A ZMQZQB. I 

HS&QIHS, 2 HUMERUS. ZEG.ZQ.B.S. 11 AS.QEND.INa Q.RDER 
V+VLlV+Vl,V2i 



KIAMLLK' 71+5 3 25983386 

F2+4 2 79 17 J. 01 6 4 

RKSULkT.' J- 7 25 33 42 53 61 + 79 86 98 101 ' 



N 2221: SUBSTITUTE "t" FOfl 'V TO OBTAIN A DESCENDING 
« MERGE 
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S.QRTZM A ZECTOR l 

MM.&Q.LM 2 ZEG.ZQ.R.S. ILS.IM ZEE P.AZZERN IN LQaiQAL. ZEQZQ.R L 

7«-(71,72)UtL] 

A 1 X S IN L DESIGNATE POSITIONS FOR ELEMENTS OF VI, 
Pi O'S FOR V2 
A pL ++ p 71, 72 

ElAMMLM. ■ Vl+'ACDG 1 
V2+ , BEF t 
L+l 110 1 

££££££: ABCDEFG 

fl ALTERNATE IMPLEMENTATIONS: 
V+(V2 t Vl)llkLl 



V+L\V1 

7L(~L)/tp7>72 ** 



** ADAPTED FROM (1) ZKE AEL LRLQM hL8,Z 
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SORTING A VECTOR 7. 

MERGING. 2 ZKQTQ.RS. QF S.AME LgNQTH £N ALTERJN.AUM EQ.£ZTIQN§, 

73-*-, 71, C 010 + 0. 5] 72 

UIO+1: 73*. 71, [1.5] 72 
DIO*0: 73*. 71. CO. 5] 72 



n NQ.T.K- AXIS-NUMBER DECIMAL-PART IS A DECIMAL VALUE 
Pi " BETWEEN AND 1 ;■ **0.5~ 5ffWff HERE 

EIMILI- 71*1 3 5 7 9 
72*2 4 6 8 10 

RESULT: 12345678910 
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QQM.ZUZIM ZAEU.ES. IEQM A VECTQR Y. 

DETERMINING THE WIDTHS W OF THE ElELRS OF V 

RU.ER ZU.EER ARK RQ EIEL.R delimiters 

A FROM FIELDS OF IDENTICAL ELEMENTS 

W*-I-~l +0 , J«-( ~UI0 ) +( ( ( 1 +7)*~1 + V) , 1 ) / x p V 

A "*j" CONTAINS THE 0RIGIN-1 INDICES OF THE LAST 
A ELEMENTS IN EACH FIELD 

Pi NOTE: MAY HAVE TO SORT V FIRST TO PRODUCE THE FIELDS 

EXAMPLE: V"-*BBADDDDCCC X 

BEJSSLLX.-- 2 14 3 

KKEK ZS.E HELD DELIMITER, IS fl 

#«-(!, l + pPO-l + O,J"*-(~[]I0 ) + (?=«)/ ip 7 



A ASSUMES THAT V CONTAINS NO TRAILING DELIMITERS Q 
A (UNLESS THERE IS AN " EMPTY" FIELD) 

EXAMPLE: VECTOR OF FIELDS DELIMITED BY COMMAS 



V+ 1 KR23S t RT1.32 t TEST VARIATIONS, , 9/27/7 8 » 



BSJSMIiX' 5 3 2 15 7 



A ALTERNATE IMPLEMENTATIONS'. 



J/-H-1 + 1 + 0,I*(~DJO) + ((7=Q) ,l)/il+p7 
W+I-l + ~l + Q,I+(~UlO) + (U=Q)/\pU4-V,Q 
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COMPUTING Z&LURS. IKQM. A ZKQ.1Q.B. I 

SUMMING SETS, QF ELEMENTS OF 7. 

SETS QF ELEMRU.ZS. S.QRTER INTO FIELRg 

p SETS OF IDENTICAL ELEMENTS 

S+W-~l 4-Q,&M7*l+-7, )/ + \7 

A CAJITIQ.1: ANY FIELD DELIMITERS MUST BE DELETED FROM V 
EXAMPLE: V+2 25554-1333 
RES.U.LZ'- 4 15 4 1 9 



P, TO SUM THE ELEMENTS OF ANOTHER VECTOR X WHOSE 

fl ELEMENTS CORRESPOND TO 7, SUBSTITUTE "+\J~ FOR " +W' 



Pi ALTERNATE IMPLEMENTATIONS: 

£«-J7-~l + 0,&M((:U7)*~l + 7) t ±)/ + \v 

S«-(7*l + 7,0)/7x + /7° .=7 
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C.OMPU.TLRQ. Z&L.U.ES. l&QM. A MG1Q& I 
S.UMM.IM S.EZS. 0.1 elements Q_F z 

£ETS QF ELEMENTS NQT IN FIELDS 

TYPE 1: SETS OF IDENTICAL _ ELEMENTS 

S+V+.*V°.=((. \pV)-V\V)/V ** 

EXAMPLE: V+2 541325353 

MS.ULT: 4 15 4 1 9 

TYPE 2 : SETS DEFINED BY VECTOR I 

5+7+.xIo.=(( l pj)=j l j)/i ** 



R VECTOR I DEFINES THE SETS IN V BY IDENTICAL ELEMENTS , 
Pi ALL ELEMENTS OF V WHOSE CORRESPONDING ELEMENTS IN I 
Pi ARE THE SAME COMPOSE A SET; pV ++ pi 

fl p5 ++ THE NUMBER OF SETS DEFINED BY I 

A IF "i" CONSISTS OF POSITIVE INTEGERS, AND ALL INTEGERS 
Pi OF "\[/l" OCCUR IN I, THEN THIS TECHNIQUE CAN BE 
ft SIMPLIFIED TO: 



S+V+. xJ° . = i|~/J ** 

EXAMPLE: V+ 72 78 94 83 85 83 76 91 75 

I"r 22 44 11 55 11 22 55 55 22 

RESULT: 23 78 179 250 

** ADAPTED FROM (1) THE &PL IDIQM LIS.T 
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GQMEUZZHG. ZALU.KS frqm. A ZEQ.ZQR z 

DETERMINING £HE FAIRWLSM UlllEB.MQ.ES £ IN V 

P«-(l + 7)-~l + 7 

Pi pD «--> (p7)-l 

EIAM.PLE: V+l 4 9 16 25 3 6 49 64 

EES.U.L.Z- 3579111315 

Pi ALTERNATE IMPLEMENTATION: 

A TO INCLUDE TEE 1ST ELEMENT OF V IN THE RESULT LpD *••*• p7] 

D+V-~ltO,V 
B.ES.U.L.Z- 1 3 5 7 9 11 13 15 

Pi NQZE- THESE ARE "KERNEL" APL OPERATIONS 
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COMPUTING VALUES FROM A VECTOR V 

CQMPUTING THE AVERAGE OF THE VALUES IN V 

AVG+(+/V)*irp,V ** 

pi WILL PROCESS A SCALAR AND AN EMPTY VECTOR (0 = pV) 

FXAMP.LR-. F«-86 81 92 73 68 8 9 

RESULT: 81.5 

** ADAPTED FROM (1) THE APL ID.LQM LIST 
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COMPUTING ZAIlUES FROM A VECTOR, 1 

IKS.12B.MIEG. ARITHMETIC SCAN OPERATIONS ON V 



Pi THE SIGNIFICANCE OF CERTAIN SCAN OPERATIONS IS AS 
fl FOLLOWS [ADAPTED FROM (1) THE API IDI_OM LISTl: 



KZ.A.MP.L.K' V+l 3 5 10 2 

+\V = PROGRESSIVE SUM: 14449101012 

x\7 = PROGRESSIVE PRODUCT: 13000000 

f\F = PROGRESSIVE MAXIMA: 13335555 

l\V = PROGRESSIVE MINIMA: 11000000 

fl SPECIAL CASE: 

-\\N = ALTERNATING SERIES: [ilH-7] 1 "l 2 "2 3 ~3 4 



Pi ALTERNATE IMPLEMENTATIONS FOR "PLUS-SCAN" , WITHOUT 
Pi USING THE SCAN OPERATOR " + \" : 



S+-V+. xjo . <j>ip7 



D+i-pT-*-- p5-«-7)i 1 
LP:S+S+TlDiS 
■>{T<~1*D<-2».D)/LP ** 



** ADAPTED FROM (3) U_SE A,NR MISUSE QF_ APL 
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G.QMP1LX.IM ZALU.M l&QM A ZEQ.T.Q.B. I 

zmzamim uao.io.AL soak q^bbazlqjsjsl an i 

fl THE SIGNIFICANCE OF CERTAIN SCAN OPERATIONS IS AS 
pi FOLLOWS {.ADAPTED FROM (1) T.H& APL IDIOM LIS.T1: 

EX.AMP.kK- V+Q 0001011010 

v\7 = ALL 1*S STARTING WITH THE FIRST (LEFTMOST) 1 
00001111111 

<\V = ALL O'S EXCEPT THE FIRST (LEFTMOST) 1: 
00 001000000 



S\7 = ALTERNATING 0*S AND 1*S UNTIL FIRST 1; THEN 
ALL SAME AS LAST DIGIT: 

10 11111111 



=\7 = ALTERNATING FIELDS OF 1»5 AND 0*5, CHANGING 

TO THE r COMPLEMENT AS OF EACH 0. FIRST FIELD 
OF f S OCCURS STARTING WITH FIRST [0*5 IN V 
DESIGNATE 1ST ELEMENTS OF FIELDS IN RESULT! : 

1011000110 



EXA.MP.L_E: V+-1 110010001010 

A\F = ALL 0*S STARTING WITH THE FIRST (LEFTMOST) 
1110000000000 

(CONTD ON NEXT PAGE) 
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COMPUTING VALUES FROM A ZEG.T.Q.B. I 



PER FORM IKS. L.QM.Q.AL £Q£N QPER&IIQM QK I (CONTD) 



EXAMPLE,: V+l 1100100010 10 



( CONTD ) 



<A7 = ALL l l S EXCEPT THE FIRST {LEFTMOST) 
1110111111111 



>\V = ALTERNATING 1 % S AND l 5 UNTIL FIRST 0; THEN 
ALL SAME AS LAST DIGIT: 

10 11111111111 



*\V = ALTERNATING FIELDS OF l l S AND Q l S, CHANGING 

TO THE COMPLEMENT AS OF EACH 1. FIRST FIELD 
OF l'S OCCURS STARTING WITH FIRST 1 [1»S IN V 
DESIGNATE 1ST ELEMENTS OF FIELDS IN RESULT']: 

1011100001100 



A REPETITIVE EXECUTION OF *\ ON A LOGICAL VECTOR 
A WHICH INITIALLY HAS ALL 1 l S WILL PRODUCE THE 
Pi FOLLOWING BIT-PATTERNS: ** 



1111111 
1010101 
1100110 
1000100 
1111000 
1 01 
1100000 
1000000 

1111111 

1 01 01 01 
110 0110 
1000100 
1111000 
1010000 
1100000 
1000000 



111111111 

010101010 
011001100 
010001000 
011110000 
01010 0000 
011000000 
010000000 
100000000 
00000Q000 
Q00Q00000 
000000000 
00 00 00 00 
000000000 
000000000 
000000 00 



oooooooooooooooo 
oooooooo 

OO 00 OO 00 

o o o o 
oooo oooo 

O O 

o o o o 

o o 

oooooooo 
oooo 
O o o o 
o o 
oooo 
o o 

O O 

o 



** ADAPTED FROM (2) BOOLEAN FUNCTIONS AND TECHNIQUES 
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UEi.MQ.lM KLMKU.ZS QF A 1KQ.1QR Z 

S.S.IMQ.IM E.L.EMEK1S. SELECTED BY A TEST 

KITE E.LJSMERT Q, 

VL( TEST )/tpF>S 

Pi THE "TEST" MUST PRODUCE A BOOLEAN RESULT (E.G., 
R USING A LOGICAL OR RELATIONAL EXPRESSION) WHICH 
P, IS THE SAME LENGTH AS V 

P, IF 2<pQ, Q MUST CONTAIN THE SAME NUMBER OF ELEMENTS 
fl AS THOSE TO BE REPLACED IN V 

KIAUELK'* V+^2 "7 5 ~3 27 "5 9 

TEST+V<0 

U.ESLUL.T: 4200027000 

Pi ALTERNATE IMPLEMENTATION: 

7<-(p7)p( TEST )e7,[DJ0-O.5] Q 

Pi Q IS A SCALAR OR A VECTOR WHERE pQ *■■*■ pV 

n WHEN Q IS A VECTOR AND (pQ)<pV, Q MUST BE EXPANDED 
A TO THE LENGTH OF V, E.G., WITH PAD-ELEMENTS: 

V+(pV)pBQV,ini0-0.5l (S«- TEST )\Q 



P, NQTE: AXIS -NUMBER DECIMAL-PART IS A DECIMAL 
fi VALUE BETWEEN AND 1; "0.5** SHOWN HERE 



(CONTD ON NEXT PAGE) 
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SMEMGIM ELEMENTS. QZ A Z&Q.ZQ.R I 

BSSMSIRSL ELEMENTS, ^ELECTED Bl & ZKS.Z (CONTD) 

WITH ELEMENT £ (CONTD) 

A ALTERNATE IMPLEMENTATION, FOR NUMERIC VECTORS: 

V-*-(.Vx~L)+QxL+TEST 

EXAMPLE: V+k2 ~7 5 "3 27 ~5 9 
TEST+V<0 
Q+2 

RESULT: 42222 27 222 

A SPECIAL CASE IMPLEMENTATIONS, REPLACING 0*S WITH Q 

V+V+Qx.V=0 ** 

V+V+(V=Q)\Q 

&XME.LE: Q+9 9 

RESULT: 42 ~7 5 99 ~3 27 99 99 ~59 

** ADAPTED FROM (1) THE. A£L IDIQM LIST 
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REPLACING ELEMENTS. Q.E. A ZEQT.QB. I 

RIEL.AQ.IKQ. ELEMS.&ZS. selected by a zest 

WITH THE PAD-ELEMENT (0 OR BLANK') 
V+B\(B+-~TEST)/V 

EXAMPLE-. REPLACING */' WITH BLANKS 

F^-M 2/31/78 ' 
TEST+V=y/* 

EM.Q.U.LT.'- 12 31 7 8 



Pi M.Q.TE: THIS TECHNIQUE ALLOWS FURTHER PROCESSING 
Pi " OF V ON THE SAME LINE, IN CONTRAST TO 
A REPLACEMENT BY INDEXING 
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REPLACING ELEMENTS OF A ZECTOR V 



MEkAQlKQ, multiple Q£C,urb,ences of ir qld substring as 

KIZR A IKK S.UBS.TRING. M ~~ 



A MUST FIRST FIND THE STARTING INDICES I OF THE 

fl OCCURRENCES OF THE OLD SUBSTRING (SEE TECHNIQUES 

a "FINDING THE STARTING INDICES ..."). THESE 

a INDICES MUST BE IN ASCENDING ORDER. 

Pi THEN COMPUTE THE ADJUSTED STARTING INDICES OF THE 
pi OCCURRENCES OF THE OLD SUBSTRING 

I+(I-UlO)+(UNI+pI)-niO)x-(OL*-pOS)-pNS 

NI+NI+K+UIO-1 

LP:+(NKK<rK+l)/0 

tK SUBSTITUTE THE NEW SUBSTRING IN PLACE OF THE OLD ONE 

V+(P+V) ,NS,(OL+P<-Iin)±V 

+LP 



EXAMPLE: V+*RV+( ( ipi?7) =RV\RV) /RV « 

OS+*RV % 
NS-*-' FACTORS* 
I+-1 8 12 15 19 LUIO+II 

RESULT : FA CTORS+ ( ( ip FACTORS) =F AC TORS \F AC TORS ) / FA CTORS 



Pi NOTE: IF NS IS AN EMPTY STRING, THE OLD STRING IS 
A DELETED FROM THE VECTOR 



pi ALTERNATE IMPLEMENTATION: 



£«--( xpV)e(I-UlO)o . + ipOS 
fl«-(( ip7)eJ)°.A(pil7S')pl 
V+(,D,R)/,V,((pV),pNS)pNS 
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RKLEILM KLMKK'LS F.RQ.M A IM.QXQ.R Z 

RELATING. <£££ OCCURENCES OF EL^MEKT. £ 

EXAMPLE: DELETING BLANKS 

V-*-* M3S , M40, U2.5,TEST, 4/23/78' 

RESULT: M3 5 ,M40, 4 2 . 5 ,TEST, 4/23/78 

pi ALTERNATE IMPLEMENTATIONS, WHEN Q IS A VECTOR: 

V+(~VeQ)/V 

V+(*/.Vo.*Q)/V 
EXAMPLE: 7-*-'M35,M40, 42. 5 , TEST, 4/23/78 » 

RES.U.LT: M3 5Af4 04 2 52'£S'2 , 42 3 78 

Pi fifilfi: "~7ee** J5 4 "KERNEL" APL OPERATION 
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RRLKZLM KkMMZS. IB.QK A EECTQR l 

WSLEXI8JS. ILL kMRLM OC.CUR.RElQ.ES 0.1 ELEMENT £ 

7«-(((7*G)il)-Dl0)+7' 

UIO+l: JM((7*«)il)-l)+7 
DI<9«-0: 7«-((7*S)ilH7 

ft TSff COMPLEMENT IS: V+( ( ( V=Q ) i ) -QIC ) + 7 

A #£££: "*((7*e)il)-Dl(?" 15 A "KERNEL" APL OPERATION 
EXA&RL.E: DELETING LEADING ZEROES 

V+0 00223014005700 

R&S.HL.Z: 2230 14 005700 

A ALTERNATE IMPLEMENTATIONS: 

V+(v\V*Q)/V 

7<-(+/a\7=Q)4-7 

VH(l + (V*Q)/\pV)-niO)*V 

7«-(((G=4>7)j.l)-l)+7 



« I£££ : -^ "<2~ -^ 4 VECTOR OF DIFFERENT ELEMENTS, 

A REPLACE "V*Q~ WITH "~VeQ" AND "Q*$V" WITH "~(<$>V)eQ' 
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U.EEEZZ&G. RLMM3L& ZB.QM A ZEQ.ZQ.R. I 

U.ELEZZKG. ALL ZR&LL.IKG. Q.QQ.U.RB.EKQ.ES. 0.1 EEEKEKZ 2 

V+{UlO-(Q*$V)\l)lrV 

UI0+1: V<r{l-{Q*$V)\1)±V 
UIO+O: 7+-(-(3*<J>7)tlH7 

Pi THE COMPLEMENT IS: V+(UIO- IQ=$V ) i ) -1-7 

A NQ_ZE: "UIO-(Q*$V)\l" IS A "KERNEL" APL OPERATION 

EXAMPLE- DELETING TRAILING ZEROES 

7+0 22 3 14 57 
Q+0 

RES.U.LT: 22 3 14 57 

p, ALTERNATE IMPLEMENTATIONS: 

V+(l-(V=Q)Ll)*V ** 

7+ ( ( ~1 + ( V*Q ) / i p 7 ) +~DJO ) i V 

7f-(- + /A\ig = <}57)4-7 



A £22£: IF Q TS A VECTOR OF DIFFERENT ELEMENTS, 

pi REPLACE "V*Q" WITH "~VeQ" AND " Q*$V" WITH "~(4>7)e#' 



** ADAPTED FROM (1) THE A.PL IDIQM LIS,T 
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RKMZIM KLKMEEIS. F&Q.M l IECIQR I 

UMLR1IM LMUIM 6M TRAILING OCCURRENCES 0.1 ELEMENT Q. 

V+( ( Bil ) -QIO ) KDJ0- (<$>B+V*Q ) il ) 4-7 

QIO-KL: 7+((Bil)-l) + (l-(*M^)ll)+F 
DIC-t-0: F^-(Bil) + (-(<})B^F*$)tl)4-y 

Pi Ttftf COMPLEMENT IS'. 7-K (B\0 ) -DJO ) + (DJC-( <t>B-*-7=Q ) t ) + 7 

S.XAM.IL.E: DELETING ZEROES 

7-f-0 0022 3 014005700 

RESULT: 22 3 14 57 

Pi ALTERNATE IMPLEMENTATIONS : 

7^((ltT)-Ql0H(("l + I^(7*Q)/ip7)t~OJ0H7 

7-K ( v\B ) A<t)V\<))S-«-7*e ) /7 
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2EMEZ&.Q. KLEMMZS. EMU A ZECTQR I 



DELETING REDUNDANT OCCURRENCES QF ELEMENT Q 



7«-(Lv 1 + 1, 2>7*G)/7 



A REDUNDANT = THE 2ND, 3RD, ETC., CONTIGUOUS OCCURRENCES 
EXAMPLE: DELETING ASTERISKS 

V<- ' **A****BB*CCC*** ' 



RESULT : 



*A*BB*CCC* 



A N,Q_TE: BOTE V*-(Lvl<$>L+V*Q )/V 
A AND V+(,L*1$L+V=Q)/V 



I THE COMPLEMENT! 



A DELETE THE TRAILING OCCURRENCES OF Q ENTIRELY IF Q ALSO 
A OCCURS AS THE LEADING ELEMENT. THE LEADING OCCURRENCES 
A ARE DELETED WHEN "...~1$..." IS SPECIFIED. 



S.ES.U.L.T : 



*A*BB*CCC 



A ££££: £ v 1 + 1, L AM? LV14>L IAND THEIR COMPLEMENTS! 
A 4i?# "KERNEL" APL OPERATIONS 
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RKLKllRQ. KLKMKKZS. IB.QM. A IKCTQ.R V 

DELETING REDRKRANT Q.CCU.RREM.QM.S OF ALL ELEMENTS 

7«-(l,(l + 7)*~l + y)/7 

P, REDUNDANT = THE 2ND, 3RD, ETC., CONTIGUOUS OCCURRENCES 
EMM.PLE: V+'AAABBCBBBAABCCCC* 

RESULT: ABCBABC 



Pi NQTE: THIS SELECTS THE 1ST OCCURRENCES OF ELEMENTS 
f\ " IN THE FIELDS OF REDUNDANT ELEMENTS. TO SELECT THE 
n LAST OCCURRENCES: 



7+-(((l + J0* HV).1)/V 
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U.eleting elemMZS. IRQM A IKCTQR i 



UELKZLM leading* ZRAlklM* 4J£ B.K2Mk-iEl Q.Q.Q.URB.MQKS. 
0.1 KL.EMRRT fl 



7-Klf£ ) ±{L*l1§L<-V=Q ) /V 



EXAMPLE : 



DELETING BLANKS 
V+ % A BC DEF 



GHIJ 



££££&£: A BC DEF GHIJ 
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REL&ZLM KLSMS3LS. IKQM A WSX&Bi I 

2U&2IM £££ RZMEBZ& KIM ISSLIG&S. I 

F-K~(tpF)eI)/7 

££Atf£££: V+15 "3 7 2 2 "3 ~19 8 

I<-2 5 6 CDI0+1] 

UKSRL.Z- 15 22 8 

A ALTERNATE IMPLEMENTATIONS: 

7«-(a/Io .*i P 7)/7 

V+(~vfI*. = if>V)/V 
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££&£££££ ELEMENTS FROM A VECTQ.B. I 

DELETING A SUBSTRING WIZH &ZARTING INDEX I AND LENGTH L. 

V+(P+V)AL+P+I-UI0)*V 

niO+1: V+(P+V),(L+P+I-1)*V 
UIQ+O: 7-*- (1 + 7), (1+1)4-7 



EXAMPLE : V+ » ABCDEFGHIJKLMNOP ' 

RESULT: ABCDEFGLMNOP 



A ALTERNATE IMPLEMENTATIONS: 
V+(niO-I)$L+(I-UlO)<bV 



Pi ffij2J£: f^ 45075 IMPLEMENTATION WILL DELETE A SUBSTRING 
Pi " ""WRAPPED AROUND" THE ENDS OF V 



V+Vl(.\P)A<.L+P+I-UJO)-pV)*\pVl 

7+(~( ip7)e( J-DI0)+tL)/7 

pi TO DELETE MULTIPLE SUBSTRINGS WITH SAME LENGTH: 

7«-(~(tp7)e(I-QJ£)o. + vL)/7 

EXAMPLE, • 1+1 6 11 IDIO+Ql 

RESULT: AFKP 



Pi NQ.TE: TO DELETE MULTIPLE OCCURRENCES, SEE ALSO THE 
Pi " TECHNIQUE "REPLACING MULTIPLE OCCURRENCES 
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VRLRZIRQ. RLEMEgTS. FROM A ZRCTOR £ 

REkEZlRQ. P.uplic_&te Q&G.UM.8.E.&G.E.& qf aMl Elements 
y+(i\pv)=v\v)/v 

ft ELEMENTS OF RESULT OCCUR IN SAME ORDER AS THEIR FIRST 
pi OCCURRENCE IN V 

EXAMPLE : V+ » TENNESSEE * 

RESULT : TENS 

n ALTERNATE IMPLEMENTATION: 

F^-((2pDJ0){?<\Fo.=7)/F ** 

n ALTERNATE IMPLEMENTATION, ONLY WHEN V IS NUMERIC 

7-Kl, (1*V)*~1 + V)/V+VLIV1 

Pi ELEMENTS OF RESULT ARE SORTED IN ASCENDING ORDER 
KK.AJ4P.kR-- F-s-4 3 2 13 2 1 

B.RS.ULT: 12 3 4 

** ADAPTED FROM (1) THE &PL IDIOM L^IST 

(CONTD ON NEXT PAGE) 
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UM.kM.TLKQ. EkWHEEZS frjom A YM.Q.ZQ& Z 

QELETigQ, UU.PkLQ.AZE Q.G.G.U.BRMGMS. Q.E Akk EkEKEUZS. (contd) 

ft SPECIAL CASE IMPLEMENTATIONS: 

n WHEN V CONTAINS INDICES AND <,pV)>T/V 



B^((f/F)+~nJO)pO 

BL7>1 

y+B/vpB 



ft ELEMENTS OF RESULT ARE IN ASCENDING ORDER 

Pi CAUTION: THIS IS NOT EFFICIENT IF [ /V IS MUCH GREATER 

pi " t"h"a"n~pv 

« S.AU.TION: the indices in y MUST be generated IN THE 
Hi ~ SAME ORIGIN IN WHICH THE CODE IS TO BE EXECUTED 

EXAMPLE: ^5 44 3 3322144-4355222 

S.ES.ULT: 12 3 4 5 IDIO-M] 

ft ALTERNATE IMPLEMENTATION: 

V+{NeV)/N+i([;/V)+~UlO 
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